summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Loop.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-19 01:36:14 +0100
committerjao <jao@gnu.org>2022-09-19 01:36:14 +0100
commit44e407836e1437bd1f78edc4980eeb9fe42399b6 (patch)
tree27b3338391ac1f3164c6998d10c7c577be91813f /src/Xmobar/X11/Loop.hs
parente8a8591201ce5d103e026b65430862e24b3b73be (diff)
downloadxmobar-44e407836e1437bd1f78edc4980eeb9fe42399b6.tar.gz
xmobar-44e407836e1437bd1f78edc4980eeb9fe42399b6.tar.bz2
cairo: non-cairo is not an option
Diffstat (limited to 'src/Xmobar/X11/Loop.hs')
-rw-r--r--src/Xmobar/X11/Loop.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/X11/Loop.hs b/src/Xmobar/X11/Loop.hs
index 3c1a25c..74c4c67 100644
--- a/src/Xmobar/X11/Loop.hs
+++ b/src/Xmobar/X11/Loop.hs
@@ -25,9 +25,9 @@ import Control.Concurrent.STM as STM
import Control.Monad.Reader as MR
import Data.Bits (Bits((.|.)))
-import qualified Data.Map as Map
import Data.List.NonEmpty (NonEmpty((:|)))
import qualified Data.List.NonEmpty as NE
+import qualified Data.Map as Map
import qualified Graphics.X11.Xlib as X11
import qualified Graphics.X11.Xlib.Extras as X11x
@@ -125,7 +125,7 @@ signalLoop xc@(T.XConf d r w fs is cfg) actions signalv strs = do
wakeup = do
segs <- parseSegments cfg strs
xc' <- updateIconCache xc segs
- actions' <- runX xc' $ Draw.drawInWin segs
+ actions' <- runX xc' (Draw.draw segs)
signalLoop xc' actions' signalv strs
hiderev t sign op