- NamingStyle ( mkDbConstrName, mkDbFieldName, mkExprFieldName ),
- defaultCodegenConfig )
+ NamingStyle ( mkDbFieldName, mkExprFieldName ),
+ defaultCodegenConfig,
+ lowerCaseSuffixNamingStyle )
+
+
+-- | The lowercase naming style for database entities, provided by
+-- Groundhog. Makes a better starting point than the default.
+--
+lowercase_ns :: NamingStyle
+lowercase_ns = lowerCaseSuffixNamingStyle