+
+-- | An expression selector creator. This is needed for embedded
+-- types, when Groundhog generates the stuff for it. The default is
+-- almost OK, but if a field name has leading underscores, they're
+-- left intact. The result is invalid. So, this strips them before
+-- doing whatever the default implementation would do.
+--
+-- >>> tsn_expr_selector_namer "MyFoo" "MyBar" "_db_derp" 0
+-- "Db_derpSelector"
+--
+tsn_expr_selector_namer :: String -> String -> String -> Int -> String
+tsn_expr_selector_namer dn cn fn fp =
+ the_default dn cn (strip_leading_underscore fn) fp
+ where
+ the_default = mkExprSelectorName lowercase_ns
+
+
+-- | Combine the modifications above into a new naming style based on
+-- the 'lowecase_ns'.
+--