diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 09:57:06 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 09:57:06 +0100 |
| commit | aeceaafdab661f6e0d63ef9695396bc7dfb8619d (patch) | |
| tree | 7ae897e8d2c2aaacba49662eb7ea9e802064a93e /tprint | |
| parent | 52d2b17c33f9832760a9be10c00f8facd577b506 (diff) | |
| download | thermoprint-aeceaafdab661f6e0d63ef9695396bc7dfb8619d.tar thermoprint-aeceaafdab661f6e0d63ef9695396bc7dfb8619d.tar.gz thermoprint-aeceaafdab661f6e0d63ef9695396bc7dfb8619d.tar.bz2 thermoprint-aeceaafdab661f6e0d63ef9695396bc7dfb8619d.tar.xz thermoprint-aeceaafdab661f6e0d63ef9695396bc7dfb8619d.zip | |
fixed case insensitive read never parsing
Diffstat (limited to 'tprint')
| -rw-r--r-- | tprint/src/Options/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tprint/src/Options/Utils.hs b/tprint/src/Options/Utils.hs index 2bb7fc6..b3561e9 100644 --- a/tprint/src/Options/Utils.hs +++ b/tprint/src/Options/Utils.hs | |||
| @@ -28,7 +28,7 @@ rCI = eitherReader rRep' | |||
| 28 | [] -> Left $ "Could not parse `" ++ str ++ "'" | 28 | [] -> Left $ "Could not parse `" ++ str ++ "'" |
| 29 | [x] -> Right x | 29 | [x] -> Right x |
| 30 | xs -> Left $ "Ambiguous parse for `" ++ str ++ "': " ++ show xs | 30 | xs -> Left $ "Ambiguous parse for `" ++ str ++ "': " ++ show xs |
| 31 | cases [] = [] | 31 | cases [] = [[]] |
| 32 | cases (c:cs) = [(c':cs') | c' <- [toLower c, toUpper c], cs' <- cases cs] | 32 | cases (c:cs) = [(c':cs') | c' <- [toLower c, toUpper c], cs' <- cases cs] |
| 33 | 33 | ||
| 34 | rTime :: ReadM UTCTime | 34 | rTime :: ReadM UTCTime |