Testsuite error message changes
[ghc.git] / testsuite / tests / simplCore / should_compile / T3717.stderr
1
2 ==================== Tidy Core ====================
3 Result size of Tidy Core = {terms: 22, types: 10, coercions: 0}
4
5 Rec {
6 T3717.$wfoo [InlPrag=[0], Occ=LoopBreaker]
7   :: GHC.Prim.Int# -> GHC.Prim.Int#
8 [GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>]
9 T3717.$wfoo =
10   \ (ww :: GHC.Prim.Int#) ->
11     case ww of ds {
12       __DEFAULT -> T3717.$wfoo (GHC.Prim.-# ds 1);
13       0 -> 0
14     }
15 end Rec }
16
17 foo [InlPrag=INLINE[0]] :: Int -> Int
18 [GblId,
19  Arity=1,
20  Caf=NoCafRefs,
21  Str=DmdType <S(S),1*U(1*U)>m,
22  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
23          WorkFree=True, Expandable=True,
24          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
25          Tmpl= \ (w [Occ=Once!] :: Int) ->
26                  case w of _ [Occ=Dead] { GHC.Types.I# ww1 [Occ=Once] ->
27                  case T3717.$wfoo ww1 of ww2 { __DEFAULT -> GHC.Types.I# ww2 }
28                  }}]
29 foo =
30   \ (w :: Int) ->
31     case w of _ [Occ=Dead] { GHC.Types.I# ww1 ->
32     case T3717.$wfoo ww1 of ww2 { __DEFAULT -> GHC.Types.I# ww2 }
33     }
34
35
36