git.iko.soy/squeal
on dev help sign in
fixes
0f81c9eEitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Binary.hs−1
compare with dev
unifiedsplit
@@ -40,7 +40,6 @@ module Squeal.PostgreSQL.Binary
40
40
41import BinaryParser
41import BinaryParser
42import Data.Aeson hiding (Null)
42import Data.Aeson hiding (Null)
43−import Data.Char (toUpper)
44import Data.Int
43import Data.Int
45import Data.Kind
44import Data.Kind
46import Data.Scientific
45import Data.Scientific
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+1−2
@@ -320,8 +320,7 @@ array xs = UnsafeExpression $
320
320
321instance (KnownSymbol label, label `In` labels) => IsPGlabel label
321instance (KnownSymbol label, label `In` labels) => IsPGlabel label
322 (Expression relations grouping params (nullity ('PGenum labels))) where
322 (Expression relations grouping params (nullity ('PGenum labels))) where
323− label = UnsafeExpression $
323+ label = UnsafeExpression $ renderLabel (PGlabel @label)
324− "\'" <> fromString (symbolVal (Proxy @label)) <> "\'"
325
324
326row
325row
327 :: (SListI (Nulls fields))
326 :: (SListI (Nulls fields))