diff options
| -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" |