diff options
| author | Dominik Peteler <haskell+gitlab@with-h.at> | 2022-08-22 00:30:17 +0200 |
|---|---|---|
| committer | Dominik Peteler <haskell+gitlab@with-h.at> | 2022-08-22 00:30:17 +0200 |
| commit | 96a1b01d65bfaf1e095f66cad0bdb354258ee909 (patch) | |
| tree | a9279d7b3c8bf421adf94942d4675aeac13ed337 | |
| parent | 1bc5abf6965374402d70d63006e6fedc46e8f64e (diff) | |
| download | haskell-wip/romes/ttg-prune-2.tar.gz | |
Fixed arrow desugaring bugwip/romes/ttg-prune-2
This was dead code before.
| -rw-r--r-- | compiler/GHC/Rename/Expr.hs | 11 |
1 files changed, 0 insertions, 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 |