From eaf2be9bbcf1b0597a52b14d28e0252ec4714bee Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 12 Sep 2022 02:36:42 +0100
Subject: wee refactoring: a couple type synonyms

---
 src/Xmobar/X11/Types.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Xmobar/X11/Types.hs')

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)
-- 
cgit v1.2.3