@@ -19,6 +19,7 @@ module Rel8.Expr.Time
1919 , minute, minutes
2020 , hour, hours
2121 , day, days
22+ , week, weeks
2223 , month, months
2324 , year, years
2425 ) where
@@ -131,6 +132,16 @@ days :: Expr Double -> Expr DiffTime
131132days = (`scaleInterval` day)
132133
133134
135+-- | An interval of one week.
136+week :: Expr DiffTime
137+week = singleton "week"
138+
139+
140+-- | Create a literal interval from a number of weeks.
141+weeks :: Expr Double -> Expr DiffTime
142+weeks = (`scaleInterval` week)
143+
144+
134145-- | An interval of one month.
135146month :: Expr DiffTime
136147month = singleton "month"