From 6850159bf998a209ad7b6d7103d113a54659937e Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 21 Nov 2015 17:32:28 +0100
Subject: Add filter birthday between function

---
 src/Date.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'src/Date.hs')

diff --git a/src/Date.hs b/src/Date.hs
index 8ab9fd2..63830d3 100644
--- a/src/Date.hs
+++ b/src/Date.hs
@@ -2,6 +2,8 @@ module Date
   ( Date(..)
   , getCurrentDate
   , sameDayAndMonth
+  , isBeforeOrEqualDayAndMonth
+  , isAfterOrEqualDayAndMonth
   , yearsGap
   ) where
 
@@ -29,5 +31,21 @@ sameDayAndMonth d1 d2 =
   && month d1 == month d2
   )
 
+isBeforeOrEqualDayAndMonth :: Date -> Date -> Bool
+isBeforeOrEqualDayAndMonth d1 d2 =
+  (  month d1 < month d2
+  || (  month d1 == month d2
+     && day d1 <= day d2
+     )
+  )
+
+isAfterOrEqualDayAndMonth :: Date -> Date -> Bool
+isAfterOrEqualDayAndMonth d1 d2 =
+  (  month d1 > month d2
+  || (  month d1 == month d2
+     && day d1 >= day d2
+     )
+  )
+
 yearsGap :: Date -> Date -> Int
 yearsGap d1 d2 = abs (year d2 - year d1)
-- 
cgit v1.2.3