From 8a1d185287080e0c351eb57706108d02ad0c7bef Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 2 Apr 2015 21:57:38 +0900 Subject: get rid of a do block --- src/Main.hs | 7 ++----- 1 file 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 -- cgit v1.2.3