From 5df496dfff0d081a2e3448affc50a016f71b57b2 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 11 Sep 2022 02:36:35 +0100
Subject: cairo: linting

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

(limited to 'src/Xmobar/X11')

diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs
index 32adac2..4ed8d84 100644
--- a/src/Xmobar/X11/CairoDraw.hs
+++ b/src/Xmobar/X11/CairoDraw.hs
@@ -46,7 +46,7 @@ drawInPixmap p w h s = do
       vis = defaultVisualOfScreen (defaultScreenOfDisplay disp)
       c = config xconf
       fi = fromIntegral
-      render = (renderSegments c w h s)
+      render = renderSegments c w h s
   liftIO $ withXlibSurface disp p vis (fi w) (fi h) render
 
 segmentMarkup :: Config -> Segment -> String
@@ -61,7 +61,7 @@ segmentMarkup _ _ = ""
 withLayoutInfo :: P.PangoContext -> Double -> Config -> Segment -> IO LayoutInfo
 withLayoutInfo ctx maxh conf seg@(Text _, inf, idx, a) = do
   lyt <- P.layoutEmpty ctx
-  mk <- (P.layoutSetMarkup lyt (segmentMarkup conf seg)) :: IO String
+  mk <- P.layoutSetMarkup lyt (segmentMarkup conf seg) :: IO String
   (_, P.PangoRectangle o u w h) <- P.layoutGetExtents lyt
   let voff' = fromIntegral $ indexedOffset conf idx
       voff = voff' + (maxh - h + u) / 2.0
@@ -88,7 +88,7 @@ setSourceColor :: RGBS.Colour Double -> C.Render ()
 setSourceColor = RGBS.uncurryRGB C.setSourceRGB . SRGB.toSRGB
 
 readColourName :: String -> IO (RGBS.Colour Double)
-readColourName str = do
+readColourName str =
   case CNames.readColourName str of
     Just c -> return c
     Nothing -> return $ SRGB.sRGB24read str
@@ -96,10 +96,10 @@ readColourName str = do
 background :: Config -> SRGB.Colour Double -> C.Render ()
 background conf colour = do
   setSourceColor colour
-  C.paintWithAlpha $ (fromIntegral (alpha conf)) / 255.0
+  C.paintWithAlpha $ fromIntegral (alpha conf) / 255.0
 
 renderBackground :: Config -> Surface -> IO ()
-renderBackground conf surface = do
+renderBackground conf surface =
   when (alpha conf >= 255)
     (readColourName (bgColor conf) >>= C.renderWith surface . background conf)
 
-- 
cgit v1.2.3