From 215ee95b4c5f8fbc1bbf1fc2c24d79a9bb39f223 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 4 Apr 2015 09:09:36 +0900 Subject: interpret command line time which is just a number as n minutes --- src/Utility/CmdLineRem.hs | 1 + 1 file changed, 1 insertion(+) 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) -- cgit v1.2.3