diff options
-rw-r--r-- | src/Xmobar/Text/Ansi.hs | 2 |
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"; |