eta-reduce

digital-asset · Mar 27, 2024 · cdcf439 · cdcf439
1 parent b5d1d4c
commit cdcf439
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs
@@ -286,8 +286,8 @@ mkFlavoredTyData ::
   -> [LConDecl GhcPs]
   -> HsDeriving GhcPs
   -> P (LTyClDecl GhcPs)
-mkFlavoredTyData loc new_or_flavored_data cType hdr' ksig data_cons maybe_deriv =
-  mkTyData loc new_or_data cType hdr ksig data_cons maybe_deriv
+mkFlavoredTyData loc new_or_flavored_data cType hdr' =
+  mkTyData loc new_or_data cType hdr
   where
     (new_or_data, hdr) = case new_or_flavored_data of
       UnflavoredNewType -> (NewType, hdr')