relational-record-examples 0.4.0.0 → 0.4.1.0

raw patch · 3 files changed

+16/−6 lines, 3 filesdep ~relational-query

Dependency ranges changed: relational-query

Files

• lib/Database/Record/TH/SQLite3.hs +6/−2
• lib/Database/Relational/Query/SQLite3.hs +7/−1
• relational-record-examples.cabal +3/−3

@@ -5,8 +5,9 @@   ) where  import GHC.Generics (Generic)+import Database.Relational (Config(..)) import Database.HDBC.Query.TH (defineTableFromDB)-import Database.HDBC.Schema.Driver (typeMap)+import Database.HDBC.Schema.Driver (driverConfig, typeMap) import Database.HDBC.Schema.SQLite3 (driverSQLite3) import Database.HDBC.Sqlite3 (connectSqlite3) import Language.Haskell.TH (Q, Dec)@@ -15,7 +16,10 @@ defineTable fileName tableName =   defineTableFromDB     (connectSqlite3 fileName)-    (driverSQLite3 { typeMap = [("FLOAT", [t|Double|]), ("INTEGER", [t|Int|])] }) -- overwrite the default type map with yours+    (drv { typeMap = [("FLOAT", [t|Double|]), ("INTEGER", [t|Int|])] -- overwrite the default type map with yours+         , driverConfig = (driverConfig drv) { disableOverloadedProjection = True }+         })     "main" -- schema name, ignored by SQLite     tableName     [''Show, ''Generic]+  where drv = driverSQLite3

@@ -9,10 +9,13 @@   , module Database.Record   , module Database.Relational   , runRelation+  , makeRelationalRecord   ) where +import Language.Haskell.TH (Name, Q, Dec)+ import Database.HDBC hiding (execute, finish, run)-import Database.HDBC.Query.TH+import Database.HDBC.Query.TH hiding (makeRelationalRecord) import Database.HDBC.Record hiding (execute, finish) import Database.HDBC.Session import Database.HDBC.Sqlite3@@ -24,3 +27,6 @@                FromSql SqlValue a) =>                conn -> Relation p a -> p -> IO [a] runRelation conn q p = runQuery conn (relationalQuery q) p++makeRelationalRecord :: Name -> Q [Dec]+makeRelationalRecord = makeRelationalRecord' defaultConfig { disableOverloadedProjection = True }

@@ -1,5 +1,5 @@ name:                relational-record-examples-version:             0.4.0.0+version:             0.4.1.0 synopsis:            Examples of Haskell Relationa Record description:         Provides examples of Haskell Relational Record license:             BSD3@@ -42,7 +42,7 @@                      , HDBC-session                      , HDBC-sqlite3                      , persistable-record >= 0.6-                     , relational-query >= 0.10+                     , relational-query >= 0.11                      , relational-query-HDBC >= 0.6.5                      , template-haskell                      -- not link directly but query type map@@ -73,7 +73,7 @@                        Transaction   build-depends:       base < 5                      , product-isomorphic >= 0.0.3-                     , relational-query >= 0.10+                     , relational-query >= 0.11                      , relational-record-examples                      , template-haskell                      , time