summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-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";