From 5492821f70dc5f3646a239fe66d7cb9d5ca76bf7 Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Fri, 18 Feb 2022 10:01:23 +0000
Subject: Apply hlint suggestion

Fixes: b7ca54651bb1 (""bright" ansi colour names")
---
 src/Xmobar/Text/Ansi.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Xmobar')

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";
-- 
cgit v1.2.3