From 44e407836e1437bd1f78edc4980eeb9fe42399b6 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 19 Sep 2022 01:36:14 +0100 Subject: cairo: non-cairo is not an option --- src/Xmobar/X11/Loop.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Xmobar/X11/Loop.hs') 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 -- cgit v1.2.3