Core pretty printer: Omit wild case binders
[ghc.git] / compiler / stgSyn / StgSyn.hs
index 4145d9e..87bbb94 100644 (file)
@@ -740,7 +740,7 @@ pprStgExpr (StgCase expr bndr alt_type alts)
 pprStgAlt :: (OutputableBndr bndr, Outputable occ, Ord occ)
           => GenStgAlt bndr occ -> SDoc
 pprStgAlt (con, params, expr)
-  = hang (hsep [ppr con, sep (map (pprBndr CaseBind) params), text "->"])
+  = hang (hsep [ppr con, sep (map (pprBndr CasePatBind) params), text "->"])
          4 (ppr expr <> semi)
 
 pprStgOp :: StgOp -> SDoc