69b47d7 · squeal · git.iko.soy

git.iko.soy/squeal

on dev help sign in

expression docs

69b47d7Eitan Chatav9 years ago

squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+10−8

compare with dev

unifiedsplit

@@ -587,7 +587,9 @@ caseWhenThenElse

587 :: [ ( Condition relations grouping params

588 , Expression relations grouping params (ty)

589 ) ]

590+ -- ^ whens and thens

590 -> Expression relations grouping params (ty)

591 -> Expression relations grouping params (ty)

592+ -- ^ else

591 -> Expression relations grouping params (ty)

593 -> Expression relations grouping params (ty)

592caseWhenThenElse whenThens else_ = UnsafeExpression $ mconcat

594caseWhenThenElse whenThens else_ = UnsafeExpression $ mconcat

593 [ "CASE"

595 [ "CASE"

@@ -611,8 +613,8 @@ caseWhenThenElse whenThens else_ = UnsafeExpression $ mconcat

611-- "CASE WHEN TRUE THEN 1 ELSE 0 END"

613-- "CASE WHEN TRUE THEN 1 ELSE 0 END"

612ifThenElse

614ifThenElse

613 :: Condition relations grouping params

615 :: Condition relations grouping params

614− -> Expression relations grouping params (ty)

616+ -> Expression relations grouping params (ty) -- ^ then

615− -> Expression relations grouping params (ty)

617+ -> Expression relations grouping params (ty) -- ^ else

616 -> Expression relations grouping params (ty)

618 -> Expression relations grouping params (ty)

617ifThenElse if_ then_ else_ = caseWhenThenElse [(if_,then_)] else_

619ifThenElse if_ then_ else_ = caseWhenThenElse [(if_,then_)] else_

618

620

@@ -673,31 +675,31 @@ infix 4 .<=

673(.>) = unsafeBinaryOp ">"

675(.>) = unsafeBinaryOp ">"

674infix 4 .>

676infix 4 .>

675

677

676−-- | >>> renderExpression $ currentDate

678+-- | >>> renderExpression currentDate

677-- "CURRENT_DATE"

679-- "CURRENT_DATE"

678currentDate

680currentDate

679 :: Expression relations grouping params (nullity 'PGdate)

681 :: Expression relations grouping params (nullity 'PGdate)

680currentDate = UnsafeExpression "CURRENT_DATE"

682currentDate = UnsafeExpression "CURRENT_DATE"

681

683

682−-- | >>> renderExpression $ currentTime

684+-- | >>> renderExpression currentTime

683-- "CURRENT_TIME"

685-- "CURRENT_TIME"

684currentTime

686currentTime

685 :: Expression relations grouping params (nullity 'PGtimetz)

687 :: Expression relations grouping params (nullity 'PGtimetz)

686currentTime = UnsafeExpression "CURRENT_TIME"

688currentTime = UnsafeExpression "CURRENT_TIME"

687

689

688−-- | >>> renderExpression $ currentTimestamp

690+-- | >>> renderExpression currentTimestamp

689-- "CURRENT_TIMESTAMP"

691-- "CURRENT_TIMESTAMP"

690currentTimestamp

692currentTimestamp

691 :: Expression relations grouping params (nullity 'PGtimestamptz)

693 :: Expression relations grouping params (nullity 'PGtimestamptz)

692currentTimestamp = UnsafeExpression "CURRENT_TIMESTAMP"

694currentTimestamp = UnsafeExpression "CURRENT_TIMESTAMP"

693

695

694−-- | >>> renderExpression $ localTime

696+-- | >>> renderExpression localTime

695-- "LOCALTIME"

697-- "LOCALTIME"

696localTime

698localTime

697 :: Expression relations grouping params (nullity 'PGtime)

699 :: Expression relations grouping params (nullity 'PGtime)

698localTime = UnsafeExpression "LOCALTIME"

700localTime = UnsafeExpression "LOCALTIME"

699

701

700−-- | >>> renderExpression $ localTimestamp

702+-- | >>> renderExpression localTimestamp

701-- "LOCALTIMESTAMP"

703-- "LOCALTIMESTAMP"

702localTimestamp

704localTimestamp

703 :: Expression relations grouping params (nullity 'PGtimestamp)

705 :: Expression relations grouping params (nullity 'PGtimestamp)

@@ -793,7 +795,7 @@ unsafeAggregateDistinct fun x = UnsafeExpression $ mconcat

793-- let

795-- let

794-- expression :: Expression '[tab ::: '["col" ::: nullity 'PGnumeric]] ('Grouped bys) params (nullity 'PGnumeric)

796-- expression :: Expression '[tab ::: '["col" ::: nullity 'PGnumeric]] ('Grouped bys) params (nullity 'PGnumeric)

795-- expression = sum_ #col

797-- expression = sum_ #col

796−-- in renderExpression expression

798+-- in renderExpression $ sum_ #col

797-- :}

799-- :}

798-- "sum(col)"

800-- "sum(col)"

799sum_

801sum_