diff options
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs index 0fdb194..c5f8b96 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -73,11 +73,8 @@ main = do then doCron else if length args == 1 && head args == "--refresh-emacs" then refreshEmacsEventCache - else do - maybeParse <- cmdLineReminder args - maybe - (error "srem: invalid input") - appendUserReminder maybeParse + else cmdLineReminder args + >>= maybe (error "srem: invalid input") appendUserReminder localHMD :: IO (Hour, Minute, Day) localHMD = do |