diff options
| author | Unoqwy <julien.qwy@gmail.com> | 2020-07-29 20:26:20 +0200 |
|---|---|---|
| committer | Unoqwy <julien.qwy@gmail.com> | 2020-08-07 19:49:33 +0200 |
| commit | 56c62a01ff6e4b7a8f400e7cd0f62aa6817f4f8b (patch) | |
| tree | a3cbbfad8fffd87d50b4983fc5f889f8d2c365ea /src/Xmobar/X11/Parsers.hs | |
| parent | ba7b3155e0c3c9ff1da914322fba74629c153f61 (diff) | |
| download | xmobar-56c62a01ff6e4b7a8f400e7cd0f62aa6817f4f8b.tar.gz xmobar-56c62a01ff6e4b7a8f400e7cd0f62aa6817f4f8b.tar.bz2 | |
make hlint happy
Diffstat (limited to 'src/Xmobar/X11/Parsers.hs')
| -rw-r--r-- | src/Xmobar/X11/Parsers.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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" |