Get next week birthdays and send an empty mail for the moment

1 files changed, 0 insertions, 37 deletions

diff --git a/src/Birthdate.hs b/src/Birthdate.hs
deleted file mode 100644
index 48d3a4e..0000000
--- a/src/Birthdate.hs
+++ /dev/null
@@ -1,37 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Birthdate
-  ( Birthdate(..)
-  , fullname
-  , age
-  , filterBirthdayAt
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T
-
-import Date
-
-data Birthdate = Birthdate
-  { date :: Date
-  , firstname :: Text
-  , lastname :: Text
-  } deriving (Eq, Show)
-
-fullname :: Birthdate -> Text
-fullname d = T.concat [firstname d, " ", lastname d]
-
-age :: Date -> Birthdate -> Int
-age currentDate birthdate = yearsGap currentDate (date birthdate)
-
-filterBirthdayAt :: Date -> [Birthdate] -> [Birthdate]
-filterBirthdayAt d = filter (sameDayAndMonth d . date)
-
-filterBirthdayBetween :: Date -> Date -> [Birthdate] -> [Birthdate]
-filterBirthdayBetween begin end =
-  filter (\bd ->
-    let d = date bd
-    in  (  d `isAfterOrEqualDayAndMonth` begin
-        && d `isBeforeOrEqualDayAndMonth` end
-        )
-  )