hasql 1.9.1.1 → 1.9.1.2

raw patch · 5 files changed

+17/−17 lines, 5 filesdep ~containersdep ~text-builderPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: containers, text-builder

API changes (from Hackage documentation)

Files

• hasql.cabal +3/−3
• library/Hasql/Encoders/All.hs +2/−2
• library/Hasql/Encoders/Array.hs +6/−6
• library/Hasql/Encoders/Params.hs +3/−3
• library/Hasql/Encoders/Value.hs +3/−3

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: hasql-version: 1.9.1.1+version: 1.9.1.2 category: Hasql, Database, PostgreSQL synopsis: Fast PostgreSQL driver with a flexible mapping API description:@@ -143,7 +143,7 @@     base >=4.14 && <5,     bytestring >=0.10 && <0.13,     bytestring-strict-builder >=0.4.5.1 && <0.5,-    containers >=0.6 && <0.8,+    containers >=0.6 && <0.9,     contravariant >=1.3 && <2,     dlist >=0.8 && <0.9 || >=1 && <2,     hashable >=1.2 && <2,@@ -155,7 +155,7 @@     profunctors >=5.1 && <6,     scientific >=0.3 && <0.4,     text >=1 && <3,-    text-builder >=0.6.7 && <0.7,+    text-builder >=1 && <1.1,     time >=1.9 && <2,     transformers >=0.6 && <0.7,     uuid >=1.3 && <2,

@@ -12,7 +12,7 @@ import Hasql.Prelude hiding (bool) import Hasql.Prelude qualified as Prelude import PostgreSQL.Binary.Encoding qualified as A-import Text.Builder qualified as C+import TextBuilder qualified as C  -- * Parameters Product Encoder @@ -381,7 +381,7 @@ data Composite a   = Composite       (a -> Bool -> A.Composite)-      (a -> [C.Builder])+      (a -> [C.TextBuilder])  instance Contravariant Composite where   contramap f (Composite encode print) =

@@ -3,22 +3,22 @@ import Hasql.PostgresTypeInfo qualified as B import Hasql.Prelude import PostgreSQL.Binary.Encoding qualified as A-import Text.Builder qualified as C+import TextBuilder qualified as C  data Array a-  = Array B.OID B.OID (Bool -> a -> A.Array) (a -> C.Builder)+  = Array B.OID B.OID (Bool -> a -> A.Array) (a -> C.TextBuilder)  instance Contravariant Array where   contramap fn (Array valueOid arrayOid encoder renderer) =     Array valueOid arrayOid (\intDateTimes -> encoder intDateTimes . fn) (renderer . fn)  {-# INLINE value #-}-value :: B.OID -> B.OID -> (Bool -> a -> A.Encoding) -> (a -> C.Builder) -> Array a+value :: B.OID -> B.OID -> (Bool -> a -> A.Encoding) -> (a -> C.TextBuilder) -> Array a value valueOID arrayOID encoder =   Array valueOID arrayOID (\params -> A.encodingArray . encoder params)  {-# INLINE nullableValue #-}-nullableValue :: B.OID -> B.OID -> (Bool -> a -> A.Encoding) -> (a -> C.Builder) -> Array (Maybe a)+nullableValue :: B.OID -> B.OID -> (Bool -> a -> A.Encoding) -> (a -> C.TextBuilder) -> Array (Maybe a) nullableValue valueOID arrayOID encoder renderer =   let maybeEncoder params =         maybe A.nullArray (A.encodingArray . encoder params)@@ -34,11 +34,11 @@       renderer els =         let folded =               let step builder el =-                    if C.null builder+                    if C.isEmpty builder                       then C.char '[' <> elRenderer el                       else builder <> C.string ", " <> elRenderer el                in fold step mempty els-         in if C.null folded+         in if C.isEmpty folded               then C.string "[]"               else folded <> C.char ']'    in Array valueOID arrayOID encoder renderer

@@ -5,7 +5,7 @@ import Hasql.PostgresTypeInfo qualified as D import Hasql.Prelude import PostgreSQL.Binary.Encoding qualified as B-import Text.Builder qualified as E+import TextBuilder qualified as E  renderReadable :: Params a -> a -> [Text] renderReadable (Params _ _ _ printer) params =@@ -86,7 +86,7 @@     { size = 1,       columnsMetadata = pure (pqOid, format),       serializer = \idt -> pure . Just . B.encodingBytes . serialize idt,-      printer = pure . E.run . print+      printer = pure . E.toText . print     }   where     D.OID _ pqOid format = valueOID@@ -97,7 +97,7 @@     { size = 1,       columnsMetadata = pure (pqOid, format),       serializer = \idt -> pure . fmap (B.encodingBytes . serialize idt),-      printer = pure . maybe "null" (E.run . print)+      printer = pure . maybe "null" (E.toText . print)     }   where     D.OID _ pqOid format = valueOID

@@ -3,10 +3,10 @@ import Hasql.PostgresTypeInfo qualified as PTI import Hasql.Prelude import PostgreSQL.Binary.Encoding qualified as B-import Text.Builder qualified as C+import TextBuilder qualified as C  data Value a-  = Value PTI.OID PTI.OID (Bool -> a -> B.Encoding) (a -> C.Builder)+  = Value PTI.OID PTI.OID (Bool -> a -> B.Encoding) (a -> C.TextBuilder)  instance Contravariant Value where   {-# INLINE contramap #-}@@ -14,7 +14,7 @@     Value valueOID arrayOID (\integerDatetimes input -> encode integerDatetimes (f input)) (render . f)  {-# INLINE unsafePTI #-}-unsafePTI :: PTI.PTI -> (Bool -> a -> B.Encoding) -> (a -> C.Builder) -> Value a+unsafePTI :: PTI.PTI -> (Bool -> a -> B.Encoding) -> (a -> C.TextBuilder) -> Value a unsafePTI pti =   Value (PTI.ptiOID pti) (fromMaybe (error "No array OID") (PTI.ptiArrayOID pti))