ghc-cabal: Use fromFlagOrDefault instead of fromFlag
[ghc.git] / testsuite / tests / simplCore / should_compile / T9400.stderr
1
2 T9400.hs:13:9: warning: [-Woverlapping-patterns (in -Wdefault)]
3     Pattern match is redundant
4     In a case alternative: [] -> ...
5
6 T9400.hs:18:9: warning: [-Woverlapping-patterns (in -Wdefault)]
7     Pattern match is redundant
8     In a case alternative: "" -> ...
9
10 ==================== Tidy Core ====================
11 Result size of Tidy Core
12   = {terms: 37, types: 22, coercions: 0, joins: 0/0}
13
14 -- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
15 $trModule1 :: Addr#
16 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
17 $trModule1 = "main"#
18
19 -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
20 $trModule2 :: TrName
21 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
22 $trModule2 = GHC.Types.TrNameS $trModule1
23
24 -- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
25 $trModule3 :: Addr#
26 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
27 $trModule3 = "T9400"#
28
29 -- RHS size: {terms: 2, types: 0, coercions: 0, joins: 0/0}
30 $trModule4 :: TrName
31 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
32 $trModule4 = GHC.Types.TrNameS $trModule3
33
34 -- RHS size: {terms: 3, types: 0, coercions: 0, joins: 0/0}
35 T9400.$trModule :: Module
36 [GblId, Caf=NoCafRefs, Unf=OtherCon []]
37 T9400.$trModule = GHC.Types.Module $trModule2 $trModule4
38
39 -- RHS size: {terms: 22, types: 15, coercions: 0, joins: 0/0}
40 main :: IO ()
41 [GblId]
42 main
43   = >>
44       @ IO
45       GHC.Base.$fMonadIO
46       @ ()
47       @ ()
48       (putStrLn (unpackCString# "c"#))
49       (>>
50          @ IO
51          GHC.Base.$fMonadIO
52          @ ()
53          @ ()
54          (putStrLn (unpackCString# "x"#))
55          (>>
56             @ IO
57             GHC.Base.$fMonadIO
58             @ ()
59             @ ()
60             (putStrLn (unpackCString# "z"#))
61             (>>
62                @ IO
63                GHC.Base.$fMonadIO
64                @ ()
65                @ ()
66                (putStrLn (unpackCString# "efg"#))
67                (Control.Exception.Base.patError
68                   @ 'LiftedRep @ (IO ()) "T9400.hs:(17,5)-(18,29)|case"#))))
69
70
71