git.iko.soy/squeal
on dev help sign in
some time expressions
164a100Eitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Statement.hs+20
compare with dev
unifiedsplit
@@ -379,6 +379,26 @@ infix 4 <=*
379(>*) = unsafeBinaryOp ">"
379(>*) = unsafeBinaryOp ">"
380infix 4 >*
380infix 4 >*
381
381
382+currentDate
383+ :: Expression params tables grouping ('Required (nullity 'PGdate))
384+currentDate = UnsafeExpression "CURRENT_DATE"
385+
386+currentTime
387+ :: Expression params tables grouping ('Required (nullity 'PGtimetz))
388+currentTime = UnsafeExpression "CURRENT_TIME"
389+
390+currentTimestamp
391+ :: Expression params tables grouping ('Required (nullity 'PGtimestamptz))
392+currentTimestamp = UnsafeExpression "CURRENT_TIMESTAMP"
393+
394+localTime
395+ :: Expression params tables grouping ('Required (nullity 'PGtime))
396+localTime = UnsafeExpression "LOCALTIME"
397+
398+localTimestamp
399+ :: Expression params tables grouping ('Required (nullity 'PGtimestamp))
400+localTimestamp = UnsafeExpression "LOCALTIMESTAMP"
401+
382data SortExpression params tables grouping where
402data SortExpression params tables grouping where
383 Asc
403 Asc
384 :: Expression params tables grouping ('Required ('NotNull ty))
404 :: Expression params tables grouping ('Required ('NotNull ty))