Allow top-level string literals in Core (#8472)
[ghc.git] / testsuite / tests / simplCore / should_compile / par01.stderr
1
2 ==================== CorePrep ====================
3 Result size of CorePrep = {terms: 22, types: 10, coercions: 0}
4
5 Rec {
6 -- RHS size: {terms: 7, types: 3, coercions: 0}
7 Par01.depth [Occ=LoopBreaker] :: GHC.Types.Int -> GHC.Types.Int
8 [GblId, Arity=1, Caf=NoCafRefs, Str=<L,U>, Unf=OtherCon []]
9 Par01.depth =
10   \ (d :: GHC.Types.Int) ->
11     case GHC.Prim.par# @ GHC.Types.Int d of { __DEFAULT ->
12     Par01.depth d
13     }
14 end Rec }
15
16 -- RHS size: {terms: 1, types: 0, coercions: 0}
17 Par01.$trModule4 :: GHC.Prim.Addr#
18 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
19 Par01.$trModule4 = "main"#
20
21 -- RHS size: {terms: 2, types: 0, coercions: 0}
22 Par01.$trModule3 :: GHC.Types.TrName
23 [GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []]
24 Par01.$trModule3 = GHC.Types.TrNameS Par01.$trModule4
25
26 -- RHS size: {terms: 1, types: 0, coercions: 0}
27 Par01.$trModule2 :: GHC.Prim.Addr#
28 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
29 Par01.$trModule2 = "Par01"#
30
31 -- RHS size: {terms: 2, types: 0, coercions: 0}
32 Par01.$trModule1 :: GHC.Types.TrName
33 [GblId, Caf=NoCafRefs, Str=m1, Unf=OtherCon []]
34 Par01.$trModule1 = GHC.Types.TrNameS Par01.$trModule2
35
36 -- RHS size: {terms: 3, types: 0, coercions: 0}
37 Par01.$trModule :: GHC.Types.Module
38 [GblId, Caf=NoCafRefs, Str=m, Unf=OtherCon []]
39 Par01.$trModule =
40   GHC.Types.Module Par01.$trModule3 Par01.$trModule1
41
42
43