diff options
| -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 |