diff options
| author | Tomas Janousek <tomi@nomi.cz> | 2022-02-18 10:01:23 +0000 |
|---|---|---|
| committer | Tomas Janousek <tomi@nomi.cz> | 2022-02-18 10:01:23 +0000 |
| commit | 5492821f70dc5f3646a239fe66d7cb9d5ca76bf7 (patch) | |
| tree | 408ba213b68b10720be358af7d4829202fe2ddd1 | |
| parent | ceaf406485cbee2d09c4af029fb9db002d3c63c5 (diff) | |
| download | xmobar-5492821f70dc5f3646a239fe66d7cb9d5ca76bf7.tar.gz xmobar-5492821f70dc5f3646a239fe66d7cb9d5ca76bf7.tar.bz2 | |
Apply hlint suggestion
Fixes: b7ca54651bb1 (""bright" ansi colour names")
| -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"; |