summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Draw.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-12 02:36:42 +0100
committerjao <jao@gnu.org>2022-09-12 02:36:42 +0100
commiteaf2be9bbcf1b0597a52b14d28e0252ec4714bee (patch)
treef638f5c7fdd177fef94d34ee961a6797f035e15b /src/Xmobar/X11/Draw.hs
parent7e72fe0bc695b1d69ea58d2f28c014aaae6ee613 (diff)
downloadxmobar-eaf2be9bbcf1b0597a52b14d28e0252ec4714bee.tar.gz
xmobar-eaf2be9bbcf1b0597a52b14d28e0252ec4714bee.tar.bz2
wee refactoring: a couple type synonyms
Diffstat (limited to 'src/Xmobar/X11/Draw.hs')
-rw-r--r--src/Xmobar/X11/Draw.hs8
1 files changed, 5 insertions, 3 deletions
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