persistable-types-HDBC-pg 0.0.1.1 → 0.0.1.2
raw patch · 3 files changed
+8/−8 lines, 3 filesdep ~persistable-record
Dependency ranges changed: persistable-record
Files
- example/DS.hs +2/−3
- example/InetExample.hs +1/−2
- persistable-types-HDBC-pg.cabal +5/−3
example/DS.hs view
@@ -2,8 +2,7 @@ module DS (definePgTable) where -import Language.Haskell.TH (Q, Dec)-import Language.Haskell.TH.Name.CamelCase (ConName)+import Language.Haskell.TH (Q, Dec, Name) import Database.HDBC.PostgreSQL (connectPostgreSQL) import Database.HDBC.Query.TH (defineTableFromDB) import Database.HDBC.Schema.Driver (Driver (..))@@ -14,6 +13,6 @@ addNetAddress d = d { typeMap = [ ("inet", [t| Inet |]), ("cidr", [t| Cidr |] ) ] ++ typeMap d } -definePgTable :: String -> String -> [ConName] -> Q [Dec]+definePgTable :: String -> String -> [Name] -> Q [Dec] definePgTable = defineTableFromDB (connectPostgreSQL "dbname=testdb") (addNetAddress driverPostgreSQL)
example/InetExample.hs view
@@ -4,10 +4,9 @@ module SinglePKey where -import Language.Haskell.TH.Name.CamelCase (ConName (..)) import DS import Database.HDBC.PostgreSQL.Persistable () $(definePgTable "EXAMPLE" "inet_example"- [ConName n | n <- [''Eq, ''Show]])+ [''Eq, ''Show])
persistable-types-HDBC-pg.cabal view
@@ -1,7 +1,9 @@ name: persistable-types-HDBC-pg-version: 0.0.1.1-synopsis: HDBC Convertible instances and HRR persistable instances of PostgreSQL extended types-description:+version: 0.0.1.2+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+ Supported extended types: inet, cidr homepage: http://khibino.github.io/haskell-relational-record/ license: BSD3 license-file: LICENSE