diff options
author | Joris | 2015-11-22 02:09:36 +0100 |
---|---|---|
committer | Joris | 2015-11-22 02:09:36 +0100 |
commit | 75e3bb69a3fec4be8850833da5cd11bbabcd99b7 (patch) | |
tree | 5ecec3bbfdfc559280e9793609bab0199b168d07 /src/Main.hs | |
parent | b977bb5ba3d5ad8f8008aa4ceb60d1f988a82a0a (diff) | |
download | events-75e3bb69a3fec4be8850833da5cd11bbabcd99b7.tar.gz events-75e3bb69a3fec4be8850833da5cd11bbabcd99b7.tar.bz2 events-75e3bb69a3fec4be8850833da5cd11bbabcd99b7.zip |
Minor style modification
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index b2b0408..2cd4c28 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -18,9 +18,6 @@ main = do eitherBirthdates <- parseBirthdates <$> T.readFile Path.birthdate eitherConfig <- getConfig Path.config case (eitherBirthdates, eitherConfig) of - (Left err, _) -> - RenderError.birthdate err - (_, Left err) -> - RenderError.config err - (Right birthdates, Right config) -> do - Notification.todayAndNextWeek birthdates config + (Left err, _) -> RenderError.birthdate err + (_, Left err) -> RenderError.config err + (Right birthdates, Right config) -> notifyTodayAndNextWeek birthdates config |