Core pretty printer: Omit wild case binders
[ghc.git] / testsuite / tests / simplCore / should_compile / T4908.stderr
index 2137dd8..947d16a 100644 (file)
@@ -58,8 +58,8 @@ T4908.$wf =
   \ (ww :: Int#) (w :: (Int, Int)) ->
     case ww of ds {
       __DEFAULT ->
-        case w of _ [Occ=Dead] { (a, b) ->
-        case b of _ [Occ=Dead] { I# ds1 ->
+        case w of { (a, b) ->
+        case b of { I# ds1 ->
         case ds1 of ds2 {
           __DEFAULT -> T4908.f_$s$wf a ds2 (-# ds 1#);
           0# -> GHC.Types.True
@@ -79,10 +79,10 @@ f [InlPrag=INLINE[0]] :: Int -> (Int, Int) -> Bool
          WorkFree=True, Expandable=True,
          Guidance=ALWAYS_IF(arity=2,unsat_ok=True,boring_ok=False)
          Tmpl= \ (w [Occ=Once!] :: Int) (w1 [Occ=Once] :: (Int, Int)) ->
-                 case w of _ [Occ=Dead] { I# ww1 [Occ=Once] -> T4908.$wf ww1 w1 }}]
+                 case w of { I# ww1 [Occ=Once] -> T4908.$wf ww1 w1 }}]
 f =
   \ (w :: Int) (w1 :: (Int, Int)) ->
-    case w of _ [Occ=Dead] { I# ww1 -> T4908.$wf ww1 w1 }
+    case w of { I# ww1 -> T4908.$wf ww1 w1 }
 
 
 ------ Local rules for imported ids --------