From e400260ce27c52eaf96e6630dd7b358887c9db6e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 4 Apr 2015 09:10:05 +0900 Subject: makeReminder fails if reminder text empty --- src/Types/Reminder.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Types/Reminder.hs b/src/Types/Reminder.hs index c0fa8eb..05f7cd7 100644 --- a/src/Types/Reminder.hs +++ b/src/Types/Reminder.hs @@ -57,7 +57,7 @@ makeReminder' :: Hour -- ^ Clock hour-hand time of event -> Minute -- ^ Clock minute-hand time of the event -> String -- ^ Event description -> Maybe Reminder -- ^ Maybe a reminder -makeReminder' h m s = if h `elem` [0..23] && m `elem` [0..59] +makeReminder' h m s = if h `elem` [0..23] && m `elem` [0..59] && (not . null) s then return $ Reminder h m s else fail "invalid reminder" -- cgit v1.2.3