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/Draw.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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

diff --git a/src/Xmobar/X11/Draw.hs b/src/Xmobar/X11/Draw.hs
index 7642afc..853ed03 100644
--- a/src/Xmobar/X11/Draw.hs
+++ b/src/Xmobar/X11/Draw.hs
@@ -24,11 +24,13 @@ import Control.Monad.Reader
 
 import Graphics.X11.Xlib hiding (Segment)
 
-import Xmobar.Config.Types
 import Xmobar.Run.Parsers (Segment)
-import Xmobar.Run.Actions (Action)
 import Xmobar.X11.Types
+
+#if defined(XFT) || defined(CAIRO)
+import Xmobar.Config.Types
 import Xmobar.X11.XRender (drawBackground)
+#endif
 
 #ifdef CAIRO
 import Xmobar.X11.CairoDraw
@@ -37,7 +39,7 @@ import Xmobar.X11.XlibDraw
 #endif
 
 -- | Draws in and updates the window
-drawInWin :: [[Segment]] -> X [([Action], Position, Position)]
+drawInWin :: [[Segment]] -> X [ActionPos]
 drawInWin segments = do
   xconf <- ask
   let d = display xconf
-- 
cgit v1.2.3