@@ -24,6 +24,7 @@ module Data.Time.Extra
2424 , Hours(..)
2525 , _Hours
2626 , addUTCHours
27+ , addUTCMinutes
2728 , DateRange(..)
2829 , mkDateRange
2930 , drFromDate
@@ -68,6 +69,9 @@ makePrisms ''Hours
6869addUTCHours :: Hours -> UTCTime -> UTCTime
6970addUTCHours (Hours h) = addUTCTime $ fromIntegral (h * 3600)
7071
72+addUTCMinutes :: Minutes -> UTCTime -> UTCTime
73+addUTCMinutes (Minutes m) = addUTCTime $ fromIntegral $ m * 60
74+
7175duration :: ShortZonedTime -> ShortZonedTime -> Minutes
7276duration t1 t2 = Minutes (timeDiff `div` 60)
7377 where