khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-06 04:16:21 +03:00
Code Issues Projects Releases Wiki Activity

Renamed.

Browse Source
This commit is contained in:
Kei Hibino 2013-03-26 21:38:42 +09:00
parent 8f8c59b064
commit 50ab897862
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
schema-th/src/Database/HDBC/TH.hs
View File

@ -40,7 +40,7 @@ module Database.HDBC.TH (
defineSqls, defineSqlsDefault,
defineTableDefault,
defineWithTableDefault,
defineWithPrimaryKeyDefault,
defineWithNotNullKeyDefault,
@ -395,12 +395,12 @@ defineSqlsWithPrimaryKeyDefault schema table fields idx =
sel = table `varNameWithPrefix` "select"
upd = table `varNameWithPrefix` "update"
defineTableDefault :: String
defineWithTableDefault :: String
-> String
-> [(String, TypeQ)]
-> [ConName]
-> Q [Dec]
defineTableDefault schema table fields derives = do
defineWithTableDefault schema table fields derives = do
recD <- defineRecordDefault schema table fields derives
sqlD <- defineSqlsDefault schema table fields
return $ recD ++ sqlD
@ -441,7 +441,7 @@ defineTableFromDB connect drv scm tbl derives = do
return (cols, notNullIdxs, mayPrimaryIdx) )
(cols, notNullIdxs, mayPrimaryIdx) <- runIO getDBinfo
tblD <- defineTableDefault scm tbl cols derives
tblD <- defineWithTableDefault scm tbl cols derives
primD <- mayDeclare (defineWithPrimaryKeyDefault scm tbl cols) mayPrimaryIdx
nnD <- mayDeclare (defineWithNotNullKeyDefault tbl) (listToMaybe notNullIdxs)
return $ tblD ++ primD ++ nnD