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

Add document.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-08 15:03:05 +09:00
parent d92fc81b1f
commit 64381c8142
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -61,11 +61,15 @@ defineHasPrimaryKeyInstance :: TypeQ -> Int -> Q [Dec]
defineHasPrimaryKeyInstance =
defineHasKeyConstraintInstance [t| Primary |]
defineHasPrimaryKeyInstanceDefault :: String -> Int -> Q [Dec]
defineHasPrimaryKeyInstanceDefault :: String -- ^ Table name
-> Int -- ^ Primary key index
-> Q [Dec] -- ^ Declaration of primary key constraint
defineHasPrimaryKeyInstanceDefault =
defineHasPrimaryKeyInstance . recordTypeDefault
defineHasNotNullKeyInstanceDefault :: String -> Int -> Q [Dec]
defineHasNotNullKeyInstanceDefault :: String -- ^ Table name
-> Int -- ^ Not null key index
-> Q [Dec] -- ^ Declaration of not null key constraint
defineHasNotNullKeyInstanceDefault =
defineHasNotNullKeyInstance . recordTypeDefault