diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-04 09:09:36 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-04 09:09:55 +0900 |
| commit | 215ee95b4c5f8fbc1bbf1fc2c24d79a9bb39f223 (patch) | |
| tree | 84e703edc1a46bbee5e01ddbdbe814468f36d7f7 | |
| parent | cf3d9fde2411f3a4e7e09cf2018d7f7c3aeaea00 (diff) | |
| download | srem-215ee95b4c5f8fbc1bbf1fc2c24d79a9bb39f223.tar.gz | |
interpret command line time which is just a number
as n minutes
| -rw-r--r-- | src/Utility/CmdLineRem.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Utility/CmdLineRem.hs b/src/Utility/CmdLineRem.hs index 46d6340..cdb72c9 100644 --- a/src/Utility/CmdLineRem.hs +++ b/src/Utility/CmdLineRem.hs @@ -78,6 +78,7 @@ parseRelativeTime exp = [h, "h", m, "m", ""] -> sequenceT (readMaybe h, readMaybe m) [h, "h", ""] -> sequenceT (readMaybe h, Just 0) [m, "m", ""] -> sequenceT (Just 0, readMaybe m) + [m] -> sequenceT (Just 0, readMaybe m) _ -> Nothing parseAbsoluteTime :: String -> Maybe (Hour, Minute) |