wee refactoring: a couple type synonyms

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Xmobar/X11/Types.hs b/src/Xmobar/X11/Types.hs
index e94967b..918f4d2 100644
--- a/src/Xmobar/X11/Types.hs
+++ b/src/Xmobar/X11/Types.hs
@@ -15,15 +15,16 @@
 ------------------------------------------------------------------------------
 
 
-module Xmobar.X11.Types (X, XConf (..), Bitmap (..), XFont (..)) where
+module Xmobar.X11.Types where
 
 import Graphics.X11.Xlib
 import Control.Monad.Reader
 import qualified Data.List.NonEmpty as NE
 
+import Xmobar.Config.Types
+import Xmobar.Run.Actions (Action)
 import Xmobar.X11.Bitmap
 import Xmobar.X11.Text
-import Xmobar.Config.Types
 
 -- | The X type is a ReaderT
 type X = ReaderT XConf IO
@@ -38,3 +39,5 @@ data XConf =
           , iconCache :: BitmapCache
           , config    :: Config
           }
+
+type ActionPos = ([Action], Position, Position)