diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-02 21:57:38 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-02 21:57:38 +0900 |
commit | 8a1d185287080e0c351eb57706108d02ad0c7bef (patch) | |
tree | 55463f94d7b38180d7f3c4ff801411fe1eac42a7 | |
parent | 6d7a22eaa9dbbf27e2a6790e3866b747d0d160d4 (diff) | |
download | srem-8a1d185287080e0c351eb57706108d02ad0c7bef.tar.gz |
get rid of a do block
-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 |