[Git][ghc/ghc][wip/kirchner/ttg-zurich] Fix failing test

[Alan Zimmerman (@alanz)]

Alan Zimmerman pushed to branch wip/kirchner/ttg-zurich at Glasgow Haskell Compiler / GHC


Commits:
9e065ec3 by Alan Zimmerman at 2024-06-17T21:07:32+01:00
Fix failing test

T20846 failed for printing prefix, not infix.

ppr for HsCmdArrForm uses lexical fixity for the GhcPs case

- - - - -


1 changed file:

- compiler/GHC/Hs/Expr.hs


Changes:

=====================================
compiler/GHC/Hs/Expr.hs
=====================================
@@ -1428,7 +1428,7 @@ ppr_cmd (HsCmdArrForm rn_fix (L _ op) ps_fix args)
     ppr_cmd_infix v
       | [arg1, arg2] <- args
       , case ghcPass @p of
-          GhcPs -> False
+          GhcPs -> ps_fix == Infix
           GhcRn -> isJust rn_fix || ps_fix == Infix
           GhcTc -> isJust rn_fix || ps_fix == Infix
       = hang (pprCmdArg (unLoc arg1))



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9e065ec30357bece8c22126b061688736fee2bee

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/9e065ec30357bece8c22126b061688736fee2bee
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/20240617/b22ad09f/attachment.html>