khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-01 13:52:12 +03:00
Code Issues Projects Releases Wiki Activity

Update along with divided PersistableRecord.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-02 03:03:11 +09:00
parent fe51ff8ae0
commit e87c1c8e49
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,7 +71,9 @@ import qualified Language.Haskell.TH.Syntax as TH
import Database.HDBC.Session (withConnectionIO)
import Database.Record.Persistable
(persistableRecord, Persistable, persistable, Singleton)
(persistableRecord, Persistable, persistable,
persistableRecordWidth, PersistableWidth, persistableWidth,
Singleton)
import Database.Record.KeyConstraint
(HasKeyConstraint(constraintKey), specifyKeyConstraint, Primary, NotNull)
import Database.Record.FromSql (FromSql(recordFromSql), recordFromSql')
@ -223,11 +225,14 @@ defineTableInfo tableVar' table fieldsVar' fields widthVar' width = do
definePersistableInstance :: VarName -> TypeQ -> VarName -> VarName -> Int -> Q [Dec]
definePersistableInstance widthVar' typeCon consFunName' decompFunName' width = do
[d| instance Persistable SqlValue $typeCon where
[d| instance PersistableWidth $typeCon where
persistableWidth = persistableRecordWidth $(varE $ varName widthVar')
instance Persistable SqlValue $typeCon where
persistable = persistableRecord
persistableWidth
$(varE $ varName consFunName')
$(varE $ varName decompFunName')
$(varE $ varName widthVar')
instance FromSql SqlValue $typeCon where
recordFromSql = recordFromSql'