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

Drop redundant definitions.

Browse Source
This commit is contained in:
Kei Hibino 2016-01-12 00:22:05 +09:00
parent 6cc42971b7
commit 9e7c8a0e63
1 changed files with 0 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
persistable-record/src/Database/Record/TH.hs
View File

@ -27,10 +27,6 @@ module Database.Record.TH (
defineHasPrimaryConstraintInstanceDerived,
defineHasPrimaryKeyInstance,
defineHasNotNullKeyInstance,
defineHasPrimaryKeyInstanceWithConfig,
defineHasNotNullKeyInstanceWithConfig,
defineHasPrimaryKeyInstanceDefault,
defineHasNotNullKeyInstanceDefault,
-- * Record type
defineRecordType,
@ -183,36 +179,6 @@ defineHasNotNullKeyInstance :: TypeQ -- ^ Type constructor of record
defineHasNotNullKeyInstance =
defineHasColumnConstraintInstance [t| NotNull |]
-- | Template of 'HasColumnConstraint' 'Primary' instance
-- from SQL schema name and table name 'String' and key index.
defineHasPrimaryKeyInstanceWithConfig :: NameConfig -> String -> String -> [Int] -> Q [Dec]
defineHasPrimaryKeyInstanceWithConfig config scm =
defineHasPrimaryKeyInstance . recordType config scm
-- | Template of 'HasColumnConstraint' 'NotNull' instance
-- from SQL schema name and table name 'String' and key index.
defineHasNotNullKeyInstanceWithConfig :: NameConfig -> String -> String -> Int -> Q [Dec]
defineHasNotNullKeyInstanceWithConfig config scm =
defineHasNotNullKeyInstance . recordType config scm
-- | Template of 'HasColumnConstraint' 'Primary' instance
-- from SQL table name 'String' and key index.
defineHasPrimaryKeyInstanceDefault :: String -- ^ Schema name
-> String -- ^ Table name
-> [Int] -- ^ Key index which specifies this constraint
-> Q [Dec] -- ^ Declaration of primary key constraint instance
defineHasPrimaryKeyInstanceDefault =
defineHasPrimaryKeyInstanceWithConfig defaultNameConfig
-- | Template of 'HasColumnConstraint' 'NotNull' instance
-- from SQL table name 'String' and key index.
defineHasNotNullKeyInstanceDefault :: String -- ^ Schema name
-> String -- ^ Table name
-> Int -- ^ Key index which specifies this constraint
-> Q [Dec] -- ^ Declaration of not null key constraint instance
defineHasNotNullKeyInstanceDefault =
defineHasNotNullKeyInstanceWithConfig defaultNameConfig
{-# DEPRECATED derivingEq "Use TH quasi-quotation like ''Eq instead of this." #-}
-- | Name to specify deriving 'Eq'
derivingEq :: Name