From 5375ad26dd78220185f1ffe05222250c06dc1a0c Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 21 Nov 2015 21:41:38 +0100
Subject: Get next week birthdays and send an empty mail for the moment

---
 src/Birthdate.hs | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 src/Birthdate.hs

(limited to 'src/Birthdate.hs')

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
-        )
-  )
-- 
cgit v1.2.3