persistable-types-HDBC-pg 0.0.3.4 → 0.0.3.5

raw patch · 2 files changed

+7/−7 lines, 2 filesdep ~relational-queryPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: relational-query

API changes (from Hackage documentation)

Files

• persistable-types-HDBC-pg.cabal +2/−2
• src/Database/HDBC/PostgreSQL/Instances.hs +5/−5

@@ -1,5 +1,5 @@ name:                persistable-types-HDBC-pg-version:             0.0.3.4+version:             0.0.3.5 synopsis:            HDBC and Relational-Record instances of PostgreSQL extended types description:         This package contains HDBC Convertible instances and                      Relational-Record persistable instances of PostgreSQL extended types@@ -39,7 +39,7 @@                      , convertible                      , HDBC                      , persistable-record >= 0.4-                     , relational-query >= 0.10 && <0.12+                     , relational-query >= 0.12                      , relational-query-HDBC   hs-source-dirs:      src   default-language:    Haskell2010

@@ -24,7 +24,7 @@ import Data.PostgreSQL.NetworkAddress (NetAddress, Inet (..), Cidr (..)) import Database.HDBC (SqlValue (..)) import Database.HDBC.Record.Persistable ()-import Database.Relational (ShowConstantTermsSQL (..))+import Database.Relational (LiteralSQL (..)) import Database.PostgreSQL.Parser (evalParser) import qualified Database.PostgreSQL.Parser as Parser import Database.PostgreSQL.Printer (execPrinter)@@ -74,8 +74,8 @@ qstringNetAddr :: IsString s => NetAddress -> s qstringNetAddr = fromString . ("'" ++) . (++ "'") . execPrinter Printer.netAddress -instance ShowConstantTermsSQL Inet where-  showConstantTermsSQL' (Inet na) = pure $ "INET" <> qstringNetAddr na+instance LiteralSQL Inet where+  showLiteral' (Inet na) = pure $ "INET" <> qstringNetAddr na -instance ShowConstantTermsSQL Cidr where-  showConstantTermsSQL' (Cidr na) = pure $ "CIDR" <> qstringNetAddr na+instance LiteralSQL Cidr where+  showLiteral' (Cidr na) = pure $ "CIDR" <> qstringNetAddr na