@@ -379,6 +379,26 @@ infix 4 <=*
379379(>*) = unsafeBinaryOp ">"
380380infix 4 >*
381381
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+
382402data SortExpression params tables grouping where
383403 Asc
384404 :: Expression params tables grouping ('Required ('NotNull ty))