git.iko.soy/typeable/extra-time
on master help sign in
B2H-805 Settlement time parameter for cron (#6276)
cfc8725Alexey Uimanov
src/Data/Time/Extra.hs+4
compare with master
unifiedsplit
@@ -24,6 +24,7 @@ module Data.Time.Extra
24 , Hours(..)
24 , Hours(..)
25 , _Hours
25 , _Hours
26 , addUTCHours
26 , addUTCHours
27+ , addUTCMinutes
27 , DateRange(..)
28 , DateRange(..)
28 , mkDateRange
29 , mkDateRange
29 , drFromDate
30 , drFromDate
@@ -68,6 +69,9 @@ makePrisms ''Hours
68addUTCHours :: Hours -> UTCTime -> UTCTime
69addUTCHours :: Hours -> UTCTime -> UTCTime
69addUTCHours (Hours h) = addUTCTime $ fromIntegral (h * 3600)
70addUTCHours (Hours h) = addUTCTime $ fromIntegral (h * 3600)
70
71
72+addUTCMinutes :: Minutes -> UTCTime -> UTCTime
73+addUTCMinutes (Minutes m) = addUTCTime $ fromIntegral $ m * 60
74+
71duration :: ShortZonedTime -> ShortZonedTime -> Minutes
75duration :: ShortZonedTime -> ShortZonedTime -> Minutes
72duration t1 t2 = Minutes (timeDiff `div` 60)
76duration t1 t2 = Minutes (timeDiff `div` 60)
73 where
77 where