Core pretty printer: Omit wild case binders
[ghc.git] / testsuite / tests / simplCore / should_compile / T7865.stdout
index b06e47d..7cad614 100644 (file)
@@ -1,4 +1,4 @@
 expensive [InlPrag=NOINLINE] :: Int -> Int
 expensive =
-        case expensive sc1 of _ [Occ=Dead] { GHC.Types.I# x ->
-                (case expensive x of _ [Occ=Dead] { GHC.Types.I# x1 ->
+        case expensive sc1 of { GHC.Types.I# x ->
+                (case expensive x of { GHC.Types.I# x1 ->