tsn_db_field_namer _ _ _ fieldname _ =
(join "_") . tail . (split "_") $ fieldname
+
-- | An expression field name creator. \"Expression\" in the context
-- of Groundhog means a constructor/type that you can use in queries
-- and update statement. We take the field name (from a record type)