+tsn_db_constr_namer :: String -> String -> Int -> String
+tsn_db_constr_namer _ constrname _ =
+ map toLower constrname
+
+tsn_expr_field_namer :: String -> String -> Int -> String -> Int -> String
+tsn_expr_field_namer _ _ _ fieldname _ =
+ (join "_") . (map capitalize) . (split "_") $ fieldname
+ where
+ capitalize [] = []
+ capitalize (c:cs) = (toUpper c : cs)
+