diff --git a/persistable-record/src/Database/Record/TH.hs b/persistable-record/src/Database/Record/TH.hs index baaa98d1..aefc1e87 100644 --- a/persistable-record/src/Database/Record/TH.hs +++ b/persistable-record/src/Database/Record/TH.hs @@ -231,6 +231,7 @@ defineRecordType typeName' columns derives = do columnDefault :: String -> TypeQ -> (VarName, TypeQ) columnDefault n t = (varCamelcaseName n, t) +-- | Record type declaration template with configured names. defineRecordTypeWithConfig :: NameConfig -> String -> String -> [(String, TypeQ)] -> [Name] -> Q [Dec] defineRecordTypeWithConfig config schema table columns = defineRecordType