Add missing haddock.

This commit is contained in:
Kei Hibino 2016-02-12 02:27:55 +09:00
parent c6d1f0f965
commit d5c6b979d6

View File

@ -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