From 5df496dfff0d081a2e3448affc50a016f71b57b2 Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 11 Sep 2022 02:36:35 +0100 Subject: cairo: linting --- src/Xmobar/Config/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Xmobar/Config/Types.hs') 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 -- cgit v1.2.3