Fix tests
[ghc.git] / testsuite / tests / simplCore / should_compile / T3772.stdout
1
2 ==================== Tidy Core ====================
3 Result size of Tidy Core = {terms: 26, types: 11, coercions: 0}
4
5 Rec {
6 -- RHS size: {terms: 10, types: 2, coercions: 0}
7 $wxs :: Int# -> ()
8 [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>]
9 $wxs =
10   \ (ww :: Int#) ->
11     case ww of ds1 {
12       __DEFAULT -> $wxs (-# ds1 1#);
13       1# -> ()
14     }
15 end Rec }
16
17 -- RHS size: {terms: 14, types: 5, coercions: 0}
18 foo [InlPrag=NOINLINE] :: Int -> ()
19 [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U(U)>]
20 foo =
21   \ (n :: Int) ->
22     case n of _ [Occ=Dead] { I# y ->
23     case tagToEnum# @ Bool (<# 0# y) of _ [Occ=Dead] {
24       False -> ();
25       True -> $wxs y
26     }
27     }
28
29
30