5b9374f · squeal · git.iko.soy

git.iko.soy/squeal

on dev help sign in

semigroup

5b9374fEitan Chatav8 years ago

squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+11−3

compare with dev

unifiedsplit

@@ -138,7 +138,7 @@ import Control.Category

138import Control.DeepSeq

139import Data.ByteString (ByteString)

140import Data.Function ((&))

141−import Data.Monoid hiding (All)

141+import Data.Semigroup

142import Data.Ratio

143import Data.String

144import Generics.SOP hiding (from)

@@ -338,10 +338,14 @@ instance Has field fields ty => IsLabel field

338 parenthesized (renderExpression expr) <> "." <>

339 fromString (symbolVal (Proxy @field))

340

341+instance Semigroup

342+ (Expression relations grouping params (nullity ('PGvararray ty))) where

343+ (<>) = unsafeBinaryOp "||"

344+

341instance Monoid

345instance Monoid

342 (Expression relations grouping params (nullity ('PGvararray ty))) where

346 (Expression relations grouping params (nullity ('PGvararray ty))) where

343 mempty = array []

347 mempty = array []

344− mappend = unsafeBinaryOp "||"

348+ mappend = (<>)

345

349

346-- | >>> renderExpression @_ @_ @'[_] $ greatest currentTimestamp [param @1]

350-- | >>> renderExpression @_ @_ @'[_] $ greatest currentTimestamp [param @1]

347-- "GREATEST(CURRENT_TIMESTAMP, ($1 :: timestamp with time zone))"

351-- "GREATEST(CURRENT_TIMESTAMP, ($1 :: timestamp with time zone))"

@@ -734,10 +738,14 @@ instance IsString

734 '\\' -> "\\\\"

738 '\\' -> "\\\\"

735 c -> [c]

739 c -> [c]

736

740

741+instance Semigroup

742+ (Expression relations grouping params (nullity 'PGtext)) where

743+ (<>) = unsafeBinaryOp "||"

744+

737instance Monoid

745instance Monoid

738 (Expression relations grouping params (nullity 'PGtext)) where

746 (Expression relations grouping params (nullity 'PGtext)) where

739 mempty = fromString ""

747 mempty = fromString ""

740− mappend = unsafeBinaryOp "||"

748+ mappend = (<>)

741

749

742-- | >>> renderExpression $ lower "ARRRGGG"

750-- | >>> renderExpression $ lower "ARRRGGG"

743-- "lower(E'ARRRGGG')"

751-- "lower(E'ARRRGGG')"