From 56c62a01ff6e4b7a8f400e7cd0f62aa6817f4f8b Mon Sep 17 00:00:00 2001 From: Unoqwy Date: Wed, 29 Jul 2020 20:26:20 +0200 Subject: make hlint happy --- src/Xmobar/X11/Parsers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Xmobar/X11/Parsers.hs') diff --git a/src/Xmobar/X11/Parsers.hs b/src/Xmobar/X11/Parsers.hs index c25715c..7fa5c00 100644 --- a/src/Xmobar/X11/Parsers.hs +++ b/src/Xmobar/X11/Parsers.hs @@ -40,7 +40,7 @@ data BoxBorder = BBTop data Box = Box BoxBorder Align Int32 CInt String deriving ( Eq ) instance Read Box where readsPrec _ input = do - let b = case (words input) of + let b = case words input of [pos] -> Just $ Box (read pos) C 0 1 "white" [pos,alg] -> Just $ Box (read pos) (read alg) 0 1 "white" [pos,alg,off] -> Just $ Box (read pos) (read alg) (read off) 1 "white" -- cgit v1.2.3