hasql 0.19.16 → 0.19.17
raw patch · 3 files changed
+22/−4 lines, 3 filesdep +network-ipdep ~postgresql-binaryPVP ok
version bump matches the API change (PVP)
Dependencies added: network-ip
Dependency ranges changed: postgresql-binary
API changes (from Hackage documentation)
+ Hasql.Decoders: inet :: Value (NetAddr IP)
+ Hasql.Encoders: inet :: Value (NetAddr IP)
Files
- hasql.cabal +3/−2
- library/Hasql/Decoders.hs +10/−1
- library/Hasql/Encoders.hs +9/−1
hasql.cabal view
@@ -1,7 +1,7 @@ name: hasql version:- 0.19.16+ 0.19.17 category: Hasql, Database, PostgreSQL synopsis:@@ -74,7 +74,7 @@ -- parsing: attoparsec >= 0.10 && < 0.14, -- database:- postgresql-binary >= 0.9.1.1 && < 0.10,+ postgresql-binary >= 0.10 && < 0.11, postgresql-libpq == 0.9.*, -- builders: bytestring-tree-builder >= 0.2.5 && < 0.3,@@ -89,6 +89,7 @@ text >= 1 && < 2, bytestring >= 0.10 && < 0.11, hashable >= 1.2 && < 1.3,+ network-ip >= 0.2 && < 0.4, -- control: semigroups >= 0.18 && < 0.20, data-default-class >= 0.0.1 && < 0.2,
library/Hasql/Decoders.hs view
@@ -37,6 +37,7 @@ timetz, interval, uuid,+ inet, json, jsonBytes, jsonb,@@ -69,7 +70,7 @@ import qualified Hasql.Private.Decoders.Array as Array import qualified Hasql.Private.Decoders.Composite as Composite import qualified Hasql.Private.Prelude as Prelude-+import qualified Network.IP.Addr as IPAddr -- * Result -------------------------@@ -414,6 +415,14 @@ uuid :: Value UUID uuid = Value (Value.decoder (const Decoder.uuid))++-- |+-- Decoder of the @INET@ values.+--+{-# INLINABLE inet #-}+inet :: Value (IPAddr.NetAddr IPAddr.IP)+inet =+ Value (Value.decoder (const Decoder.inet)) -- | -- Decoder of the @JSON@ values into a JSON AST.
library/Hasql/Encoders.hs view
@@ -26,6 +26,7 @@ timetz, interval, uuid,+ inet, json, jsonBytes, jsonb,@@ -49,7 +50,7 @@ import qualified Hasql.Private.Encoders.Array as Array import qualified Hasql.Private.PTI as PTI import qualified Hasql.Private.Prelude as Prelude-+import qualified Network.IP.Addr as IPAddr -- * Parameters Product Encoder -------------------------@@ -300,6 +301,13 @@ uuid :: Value UUID uuid = Value (Value.unsafePTI PTI.uuid (const Encoder.uuid))++-- |+-- Encoder of @INET@ values.+{-# INLINABLE inet #-}+inet :: Value (IPAddr.NetAddr IPAddr.IP)+inet =+ Value (Value.unsafePTI PTI.inet (const Encoder.inet)) -- | -- Encoder of @JSON@ values from JSON AST.