2018-06-24 17:26:43 -04:00
|
|
|
module Timestamp where
|
|
|
|
|
|
2018-06-24 19:21:29 -04:00
|
|
|
data Timestamp = Ts Integer Integer Integer deriving Show
|
|
|
|
|
|
2018-06-24 17:26:43 -04:00
|
|
|
isPreviewSeason :: Timestamp -> Bool
|
|
|
|
|
isPreviewSeason (Ts x _ _) = x >= 20
|
|
|
|
|
|
|
|
|
|
inFuture :: Timestamp -> Timestamp -> Bool
|
|
|
|
|
inFuture (Ts d1 m1 y1) (Ts d2 m2 y2)
|
|
|
|
|
| y1 /= y2 = y1 > y2
|
|
|
|
|
| m1 /= m2 = m1 > m2
|
|
|
|
|
| d1 /= d2 = d1 > d2
|
|
|
|
|
| otherwise = False
|
|
|
|
|
|
|
|
|
|
monthsSince :: Timestamp -> Timestamp -> Integer
|
|
|
|
|
monthsSince (Ts d1 m1 y1) (Ts d2 m2 y2)
|
|
|
|
|
| t1 `inFuture` t2 = (12 * (y1 - y2)) + (m1 - m2)
|
|
|
|
|
| otherwise = 0
|
|
|
|
|
where
|
|
|
|
|
t1 = Ts d1 m1 y1
|
|
|
|
|
t2 = Ts d2 m2 y2
|
