fc349b9 · squeal · git.iko.soy

subtract a diff from a time

fc349b9Eitan Chatav8 years ago

squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+9

@@ -2401,6 +2401,15 @@ class TimeOp time diff | time -> diff where

2401 -> Expression outer grp commons schemas params from (nullity time)

2402 (+!) = unsafeBinaryOp "+"

2403 {-|

2404+ >>> printSQL (makeDate 1984 7 3 !- 365)

2405+ (make_date(1984, 7, 3) - 365)

2406+ -}

2407+ (!-)

2408+ :: Expression outer grp commons schemas params from (nullity time)

2409+ -> Expression outer grp commons schemas params from (nullity diff)

2410+ -> Expression outer grp commons schemas params from (nullity time)

2411+ (!-) = unsafeBinaryOp "-"

2412+ {-|

2404 >>> printSQL (makeDate 1984 7 3 !-! currentDate)

2413 >>> printSQL (makeDate 1984 7 3 !-! currentDate)

2405 (make_date(1984, 7, 3) - CURRENT_DATE)

2414 (make_date(1984, 7, 3) - CURRENT_DATE)

2406 -}

2415 -}