fixes
commit0f81c9ef1d0359e855373dbdae11f6587debebee
authorEitan Chatav <eitan.chatav@gmail.com>
dateWed 25 Apr 2018, 17:25 (9 years ago)
parent87d962c
squeal-postgresql/src/Squeal/PostgreSQL/Binary.hs−1
@@ -40,7 +40,6 @@ module Squeal.PostgreSQL.Binary
4040
4141import BinaryParser
4242import Data.Aeson hiding (Null)
43−import Data.Char (toUpper)
4443import Data.Int
4544import Data.Kind
4645import Data.Scientific
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+1−2
@@ -320,8 +320,7 @@ array xs = UnsafeExpression $
320320
321321instance (KnownSymbol label, label `In` labels) => IsPGlabel label
322322 (Expression relations grouping params (nullity ('PGenum labels))) where
323− label = UnsafeExpression $
324− "\'" <> fromString (symbolVal (Proxy @label)) <> "\'"
323+ label = UnsafeExpression $ renderLabel (PGlabel @label)
325324
326325row
327326 :: (SListI (Nulls fields))