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