summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorTomas Janousek <tomi@nomi.cz>2022-02-18 10:01:23 +0000
committerTomas Janousek <tomi@nomi.cz>2022-02-18 10:01:23 +0000
commit5492821f70dc5f3646a239fe66d7cb9d5ca76bf7 (patch)
tree408ba213b68b10720be358af7d4829202fe2ddd1 /src
parentceaf406485cbee2d09c4af029fb9db002d3c63c5 (diff)
downloadxmobar-5492821f70dc5f3646a239fe66d7cb9d5ca76bf7.tar.gz
xmobar-5492821f70dc5f3646a239fe66d7cb9d5ca76bf7.tar.bz2
Apply hlint suggestion
Fixes: b7ca54651bb1 (""bright" ansi colour names")
Diffstat (limited to 'src')
-rw-r--r--src/Xmobar/Text/Ansi.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/Text/Ansi.hs b/src/Xmobar/Text/Ansi.hs
index 263c661..0d2d64a 100644
--- a/src/Xmobar/Text/Ansi.hs
+++ b/src/Xmobar/Text/Ansi.hs
@@ -26,7 +26,7 @@ asInt x = case (reads $ "0x" ++ x) :: [(Integer, String)] of
namedColor :: String -> String
namedColor c =
- case (map toLower c) of
+ case map toLower c of
"black" -> "0"; "red" -> "1"; "green" -> "2"; "yellow" -> "3"; "blue" -> "4";
"magenta" -> "5"; "cyan" -> "6"; "white" -> "7";
"brightblack" -> "8"; "brightred" -> "9"; "brightgreen" -> "10";