@@ -19,6 +19,7 @@ module Rel8.Expr.Time
19 , minute, minutes
19 , minute, minutes
20 , hour, hours
20 , hour, hours
21 , day, days
21 , day, days
22 , month, months
23 , month, months
23 , year, years
24 , year, years
@@ -131,6 +132,16 @@ days :: Expr Double -> Expr DiffTime
131days = (`scaleInterval` day)
132days = (`scaleInterval` day)
135+-- | An interval of one week.
136+week :: Expr DiffTime
137+week = singleton "week"
140+-- | Create a literal interval from a number of weeks.
141+weeks :: Expr Double -> Expr DiffTime
142+weeks = (`scaleInterval` week)
134-- | An interval of one month.
145-- | An interval of one month.
135month :: Expr DiffTime
146month :: Expr DiffTime
136month = singleton "month"
147month = singleton "month"