diff options
| author | jao <jao@gnu.org> | 2022-09-12 02:36:42 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-12 02:36:42 +0100 |
| commit | eaf2be9bbcf1b0597a52b14d28e0252ec4714bee (patch) | |
| tree | f638f5c7fdd177fef94d34ee961a6797f035e15b /src/Xmobar/X11/Draw.hs | |
| parent | 7e72fe0bc695b1d69ea58d2f28c014aaae6ee613 (diff) | |
| download | xmobar-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.hs | 8 |
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 |