X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhtsn-import.git;a=blobdiff_plain;f=src%2FTSN%2FCodegen.hs;h=8f9ffaf4388bbc89e5855455cece9fa9dd24db40;hp=d002823b24d33ea00a22bcebd21faec30add48d5;hb=7f22e74b4e21b1fd943c69214bffbd39961baa66;hpb=f6708a3fa86d84914e5c67e339f192460864c143

diff --git a/src/TSN/Codegen.hs b/src/TSN/Codegen.hs
index d002823..8f9ffaf 100644
--- 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