blob: 4a29fcc19899d1215a55faa16aa3a9197784a093 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Util.Time
( belongToCurrentMonth
, belongToCurrentWeek
) where
import Data.Time.Calendar (toGregorian)
import Data.Time.Calendar.WeekDate (toWeekDate)
import Data.Time.Clock (UTCTime, getCurrentTime)
import qualified Common.Util.Time as Time
belongToCurrentMonth :: UTCTime -> IO Bool
belongToCurrentMonth time = do
(timeYear, timeMonth, _) <- toGregorian <$> Time.timeToDay time
(actualYear, actualMonth, _) <- toGregorian <$> (getCurrentTime >>= Time.timeToDay)
return (actualYear == timeYear && actualMonth == timeMonth)
belongToCurrentWeek :: UTCTime -> IO Bool
belongToCurrentWeek time = do
(timeYear, timeWeek, _) <- toWeekDate <$> Time.timeToDay time
(actualYear, actualWeek, _) <- toWeekDate <$> (getCurrentTime >>= Time.timeToDay)
return (actualYear == timeYear && actualWeek == timeWeek)
|
