diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-04 09:10:05 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-04 09:10:05 +0900 |
commit | e400260ce27c52eaf96e6630dd7b358887c9db6e (patch) | |
tree | abb24f348589281e1fa44403ff3962062e9db29f | |
parent | 215ee95b4c5f8fbc1bbf1fc2c24d79a9bb39f223 (diff) | |
download | srem-e400260ce27c52eaf96e6630dd7b358887c9db6e.tar.gz |
makeReminder fails if reminder text empty
-rw-r--r-- | src/Types/Reminder.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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" |