From cdcf4399429dc84674e8b9bb5dba7d5417210e67 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mois=C3=A9s=20Ackerman?= Date: Wed, 27 Mar 2024 12:06:41 +0100 Subject: [PATCH] eta-reduce --- compiler/parser/RdrHsSyn.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index abc602122a..96863957bf 100644 --- 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')