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/Config/Types.hs  |  4 ++--
 src/Xmobar/X11/CairoDraw.hs | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/Xmobar/Config/Types.hs b/src/Xmobar/Config/Types.hs
index 216ac19..3f2297f 100644
--- a/src/Xmobar/Config/Types.hs
+++ b/src/Xmobar/Config/Types.hs
@@ -77,12 +77,12 @@ data Config =
 indexedFont :: Config -> Int -> String
 indexedFont config idx =
   if idx < 1 || idx > length (additionalFonts config)
-  then font config else (additionalFonts config) !! (idx - 1)
+  then font config else additionalFonts config !! (idx - 1)
 
 indexedOffset :: Config -> Int -> Int
 indexedOffset config idx =
   if idx < 1 || idx > length (textOffsets config)
-  then textOffset config else (textOffsets config) !! (idx - 1)
+  then textOffset config else textOffsets config !! (idx - 1)
 
 data XPosition = Top
                | TopH Int
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