Correctly pretty print a wild card in infix position
[ghc.git] / compiler / hsSyn / HsExpr.hs
index 71c4089..6ec0f0a 100644 (file)
@@ -852,6 +852,7 @@ ppr_expr (OpApp e1 op _ e2)
     should_print_infix (HsRecFld f)    = Just (pprInfixOcc f)
     should_print_infix (HsUnboundVar h@TrueExprHole{})
                                        = Just (pprInfixOcc (unboundVarOcc h))
+    should_print_infix EWildPat        = Just (text "`_`")
     should_print_infix (HsWrap _ e)    = should_print_infix e
     should_print_infix _               = Nothing