khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-25 08:19:14 +03:00
Code Issues Projects Releases Wiki Activity

relational-record-examples: apply custom API for SQLite3.

Browse Source
This commit is contained in:
Kei Hibino 2019-05-14 02:05:31 +09:00
parent 0bd2b1f7e3
commit 21288a1b60
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
relational-record-examples/lib/Database/Relational/CustomSQLite3.hs
View File

@ -7,7 +7,7 @@ module Database.Relational.CustomSQLite3 (
module Database.HDBC.Session,
module Database.HDBC.Sqlite3,
module Database.Record,
module Database.Relational,
module Database.Custom.SQLite3,
runRelation,
makeRelationalRecord,
@ -21,13 +21,13 @@ import Database.HDBC.Record hiding (execute, finish)
import Database.HDBC.Session
import Database.HDBC.Sqlite3
import Database.Record hiding (unique)
import Database.Relational hiding (unique)
import Database.Custom.SQLite3
runRelation :: (ToSql SqlValue p,
IConnection conn,
FromSql SqlValue a) =>
conn -> Relation p a -> p -> IO [a]
runRelation conn q p = runQuery conn (relationalQuery q) p
runRelation conn q p = runQuery conn (relationalQuery q []) p
makeRelationalRecord :: Name -> Q [Dec]
makeRelationalRecord = makeRelationalRecord' defaultConfig