Rename birthday to event

1 files changed, 8 insertions, 8 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 3a34269..bc9b112 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -9,15 +9,15 @@ import qualified Data.Text.IO as T
 import Exit (exitWithParsingError)
 import Notification (notifyTodayAndNextWeek)
 
-import Model.Config
-import Model.BirthdateParser (parseBirthdates)
+import Model.Conf
+import Model.EventParser (parseEvents)
 import qualified Model.Path as Path
 
 main :: IO ()
 main = do
-  eitherBirthdates <- parseBirthdates <$> T.readFile Path.birthdate
-  eitherConfig <- getConfig Path.config
-  case (eitherBirthdates, eitherConfig) of
-    (Left err, _) -> exitWithParsingError Path.birthdate err
-    (_, Left err) -> exitWithParsingError Path.config err
-    (Right birthdates, Right config) -> notifyTodayAndNextWeek birthdates config
+  eitherEvents <- parseEvents <$> T.readFile Path.event
+  eitherConf <- getConf Path.conf
+  case (eitherEvents, eitherConf) of
+    (Left err, _) -> exitWithParsingError Path.event err
+    (_, Left err) -> exitWithParsingError Path.conf err
+    (Right events, Right conf) -> notifyTodayAndNextWeek events conf