[Git][ghc/ghc][wip/romes/ttg-prune-2] Fixed arrow desugaring bug

[Dominik Peteler (@mmhat)]

Dominik Peteler pushed to branch wip/romes/ttg-prune-2 at Glasgow Haskell Compiler / GHC


Commits:
96a1b01d by Dominik Peteler at 2022-08-22T00:30:17+02:00
Fixed arrow desugaring bug

This was dead code before.

- - - - -


1 changed file:

- compiler/GHC/Rename/Expr.hs


Changes:

=====================================
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



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/96a1b01d65bfaf1e095f66cad0bdb354258ee909

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/96a1b01d65bfaf1e095f66cad0bdb354258ee909
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20220821/e4f115f9/attachment-0001.html>