From d8eedc3e2639f0f50f0554f89dc121da4941d4d1 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 4 Apr 2016 22:48:33 +0200
Subject: Rename birthday to event

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

(limited to 'src/Model/Birthdate.hs')

diff --git a/src/Model/Birthdate.hs b/src/Model/Birthdate.hs
deleted file mode 100644
index 96783a7..0000000
--- a/src/Model/Birthdate.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-module Model.Birthdate
-  ( Birthdate(..)
-  , renderBirthdate
-  , fullname
-  , age
-  , filterBirthdayAt
-  , filterBirthdayInside
-  ) where
-
-import Data.Text (Text)
-import qualified Data.Text as T
-import Data.Maybe (isJust)
-
-import Model.Date
-
-data Birthdate = Birthdate
-  { date :: Date
-  , firstname :: Text
-  , lastname :: Text
-  } deriving (Eq, Show)
-
-renderBirthdate :: Birthdate -> Text
-renderBirthdate birthdate =
-  T.concat
-    [ fullname birthdate
-    , " ("
-    , renderDate (date birthdate)
-    , ")"
-    ]
-
-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)
-
-filterBirthdayInside :: [Date] -> [Birthdate] -> [Birthdate]
-filterBirthdayInside dates = filter (isJust . dayAndMonthInRange dates . date)
-- 
cgit v1.2.3