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

Update definition order.

Browse Source
This commit is contained in:
Kei Hibino 2013-06-02 15:25:27 +09:00
parent 343d9720c3
commit af772cf52c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
DB-record/src/Database/Record/TH.hs
View File

@ -62,17 +62,17 @@ import Database.Record.Persistable
import qualified Database.Record.Persistable as Persistable
defineHasKeyConstraintInstance :: TypeQ -> TypeQ -> Int -> Q [Dec]
defineHasKeyConstraintInstance constraint typeCon index =
[d| instance HasKeyConstraint $constraint $typeCon where
keyConstraint = specifyKeyConstraint $(integralE index) |]
recordTypeNameDefault :: String -> ConName
recordTypeNameDefault = conCamelcaseName
recordTypeDefault :: String -> TypeQ
recordTypeDefault = toTypeCon . recordTypeNameDefault
defineHasKeyConstraintInstance :: TypeQ -> TypeQ -> Int -> Q [Dec]
defineHasKeyConstraintInstance constraint typeCon index =
[d| instance HasKeyConstraint $constraint $typeCon where
keyConstraint = specifyKeyConstraint $(integralE index) |]
defineHasNotNullKeyInstance :: TypeQ -> Int -> Q [Dec]
defineHasNotNullKeyInstance =
defineHasKeyConstraintInstance [t| NotNull |]