diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T9400.stderr')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T9400.stderr | 54 |
1 files changed, 27 insertions, 27 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T9400.stderr b/testsuite/tests/simplCore/should_compile/T9400.stderr index a8004dc..a68cbbf 100644 --- a/testsuite/tests/simplCore/should_compile/T9400.stderr +++ b/testsuite/tests/simplCore/should_compile/T9400.stderr @@ -31,33 +31,33 @@ T9400.$trModule = GHC.Types.Module $trModule2 $trModule4 -- RHS size: {terms: 22, types: 15, coercions: 0, joins: 0/0} main :: IO () [GblId] -main = - >> - @ IO - GHC.Base.$fMonadIO - @ () - @ () - (putStrLn (unpackCString# "c"#)) - (>> - @ IO - GHC.Base.$fMonadIO - @ () - @ () - (putStrLn (unpackCString# "x"#)) - (>> - @ IO - GHC.Base.$fMonadIO - @ () - @ () - (putStrLn (unpackCString# "z"#)) - (>> - @ IO - GHC.Base.$fMonadIO - @ () - @ () - (putStrLn (unpackCString# "efg"#)) - (Control.Exception.Base.patError - @ 'LiftedRep @ (IO ()) "T9400.hs:(17,5)-(18,29)|case"#)))) +main + = >> + @ IO + GHC.Base.$fMonadIO + @ () + @ () + (putStrLn (unpackCString# "c"#)) + (>> + @ IO + GHC.Base.$fMonadIO + @ () + @ () + (putStrLn (unpackCString# "x"#)) + (>> + @ IO + GHC.Base.$fMonadIO + @ () + @ () + (putStrLn (unpackCString# "z"#)) + (>> + @ IO + GHC.Base.$fMonadIO + @ () + @ () + (putStrLn (unpackCString# "efg"#)) + (Control.Exception.Base.patError + @ 'LiftedRep @ (IO ()) "T9400.hs:(17,5)-(18,29)|case"#)))) |