@@ -2401,6 +2401,15 @@ class TimeOp time diff | time -> diff where
24012401 -> Expression outer grp commons schemas params from (nullity time)
24022402 (+!) = unsafeBinaryOp "+"
24032403 {-|
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+ {-|
24042413 >>> printSQL (makeDate 1984 7 3 !-! currentDate)
24052414 (make_date(1984, 7, 3) - CURRENT_DATE)
24062415 -}