From 96a1b01d65bfaf1e095f66cad0bdb354258ee909 Mon Sep 17 00:00:00 2001 From: Dominik Peteler Date: Mon, 22 Aug 2022 00:30:17 +0200 Subject: Fixed arrow desugaring bug This was dead code before. --- compiler/GHC/Rename/Expr.hs | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/compiler/GHC/Rename/Expr.hs b/compiler/GHC/Rename/Expr.hs index f887ba79d1..52b3f2c5bc 100644 --- a/compiler/GHC/Rename/Expr.hs +++ b/compiler/GHC/Rename/Expr.hs @@ -822,17 +822,6 @@ rnCmd (HsCmdArrApp _ arrow arg ho rtl) -- Local bindings, inside the enclosing proc, are not in scope -- inside 'arrow'. In the higher-order case (-<<), they are. --- infix form -rnCmd (HsCmdArrForm _ op _ [arg1, arg2]) - = do { (op',fv_op) <- escapeArrowScope (rnLExpr op) - ; let L _ (HsVar _ (L _ op_name)) = op' - ; (arg1',fv_arg1) <- rnCmdTop arg1 - ; (arg2',fv_arg2) <- rnCmdTop arg2 - -- Deal with fixity - ; fixity <- lookupFixityRn op_name - ; final_e <- mkOpFormRn arg1' op' fixity arg2' - ; return (final_e, fv_arg1 `plusFV` fv_op `plusFV` fv_arg2) } - rnCmd (HsCmdArrForm _ op f cmds) = do { (op',fvOp) <- escapeArrowScope (rnLExpr op) ; (cmds',fvCmds) <- rnCmdArgs cmds -- cgit v1.2.1