From 895704ce7e093c84d7aec806bac98a51c0ab3a01 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 15 Sep 2022 12:03:54 +0100
Subject: linting

---
 src/Xmobar/X11/CairoDraw.hs | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'src/Xmobar/X11')

diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs
index eb27e74..e93e5ae 100644
--- a/src/Xmobar/X11/CairoDraw.hs
+++ b/src/Xmobar/X11/CairoDraw.hs
@@ -67,13 +67,6 @@ readColourName str =
                  [(c,d)] -> (c, read ("0x" ++ d))
                  _ ->  (CNames.white, 1.0)
 
-renderBackground :: Display -> Pixmap -> Config -> Dimension -> Dimension -> IO ()
-renderBackground d p conf w h = do
-  let c = bgColor conf
-      (_, a) = readColourName c
-      a' = min (round $ 255 * a) (alpha conf)
-  drawBackground d p c a' (Rectangle 0 0 w h)
-
 drawInPixmap :: GC -> Pixmap -> [[Segment]] -> X Actions
 drawInPixmap gc p s = do
   xconf <- ask
@@ -85,7 +78,7 @@ drawInPixmap gc p s = do
       conf = config xconf
       dc = DC (drawXBitmap xconf gc p) (lookupXBitmap xconf) conf dw dh s
       render = drawSegments dc
-  liftIO $ renderBackground disp p conf w h
+  liftIO $ drawBackground disp p (bgColor conf) (alpha conf) (Rectangle 0 0 w h)
   liftIO $ withXlibSurface disp p vis (fromIntegral w) (fromIntegral h) render
 
 lookupXBitmap :: XConf -> String -> Maybe B.Bitmap
@@ -125,7 +118,7 @@ withRenderinfo ctx dctx seg@(Text _, inf, idx, a) = do
         C.renderWith s $ C.moveTo off voff >> P.showLayout lyt
   return ((Text mk, inf, idx, a), slyt, wd)
 
-withRenderinfo _ _ seg@(Hspace w, _, _, _) = do
+withRenderinfo _ _ seg@(Hspace w, _, _, _) =
   return (seg, \_ _ _ -> return (), fromIntegral w)
 
 withRenderinfo _ dctx seg@(Icon p, _, _, _) = do
@@ -232,7 +225,7 @@ drawBoxes' :: DrawContext -> Surface -> (Double, Double, [Box]) -> IO ()
 drawBoxes' dctx surf (from, to, bs) = mapM_ (drawBox dctx surf from to) bs
 
 drawBoxes :: DrawContext -> Surface -> Boxes -> IO ()
-drawBoxes dctx surf ((from, to, b):(from', to', b'):bxs) = do
+drawBoxes dctx surf ((from, to, b):(from', to', b'):bxs) =
   if to < from'
   then do drawBoxes' dctx surf (from, to, b)
           drawBoxes dctx surf $ (from', to', b'):bxs
-- 
cgit v1.2.3