More error message wibbles
[ghc.git] / testsuite / tests / simplCore / should_compile / T4930.stderr
1
2 ==================== Tidy Core ====================
3 Result size of Tidy Core = {terms: 23, types: 11, coercions: 0}
4
5 lvl :: [Char]
6 [GblId, Str=DmdType]
7 lvl = unpackCString# "Too small"#
8
9 T4930.foo1 :: Int
10 [GblId, Str=DmdType b]
11 T4930.foo1 = error @ Int lvl
12
13 foo :: Int -> Int
14 [GblId,
15  Arity=1,
16  Str=DmdType <S,1*U(U)>m,
17  Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
18          WorkFree=True, Expandable=True,
19          Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
20          Tmpl= \ (n [Occ=Once!] :: Int) ->
21                  case n of _ [Occ=Dead] { I# x ->
22                  case tagToEnum# @ Bool (<# x 5#) of _ [Occ=Dead] {
23                    False -> I# (+# x 5#);
24                    True -> T4930.foo1
25                  }
26                  }}]
27 foo =
28   \ (n :: Int) ->
29     case n of _ [Occ=Dead] { I# x ->
30     case tagToEnum# @ Bool (<# x 5#) of _ [Occ=Dead] {
31       False -> I# (+# x 5#);
32       True -> T4930.foo1
33     }
34     }
35
36
37