Fix hlint suggestions.

[dead/htsn-import.git] / src / TSN / Codegen.hs

diff --git a/src/TSN/Codegen.hs b/src/TSN/Codegen.hs
index d002823b24d33ea00a22bcebd21faec30add48d5..8f9ffaf4388bbc89e5855455cece9fa9dd24db40 100644 (file)
--- a/src/TSN/Codegen.hs
+++ b/src/TSN/Codegen.hs
@@ -85,8 +85,8 @@ tsn_expr_field_namer _ _ _ fieldname _ =
 --   "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
+tsn_expr_selector_namer dn cn fn =
+  the_default dn cn (strip_leading_underscore fn)
   where
     the_default = mkExprSelectorName lowercase_ns