diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2014-10-30 11:41:17 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2014-11-04 10:38:06 +0000 |
commit | 5479ae0a0ff6d5df2da4f6208ce747f669c6d492 (patch) | |
tree | 1a7d32c9657d59690c47135898086955d5907bb5 /testsuite/tests/simplCore/should_compile/T9400.stderr | |
parent | 66658eedf0aa51de37ff6d2d009a2f37208985ca (diff) | |
download | haskell-5479ae0a0ff6d5df2da4f6208ce747f669c6d492.tar.gz |
Testsuite error message changes
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T9400.stderr')
-rw-r--r-- | testsuite/tests/simplCore/should_compile/T9400.stderr | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T9400.stderr b/testsuite/tests/simplCore/should_compile/T9400.stderr index e66eecfc0a..938a07204b 100644 --- a/testsuite/tests/simplCore/should_compile/T9400.stderr +++ b/testsuite/tests/simplCore/should_compile/T9400.stderr @@ -2,35 +2,35 @@ ==================== Tidy Core ==================== Result size of Tidy Core = {terms: 23, types: 16, coercions: 0} -T9400.main :: GHC.Types.IO () +main :: IO () [GblId, Str=DmdType] -T9400.main = - GHC.Base.>> - @ GHC.Types.IO +main = + >> + @ IO GHC.Base.$fMonadIO @ () @ () - (System.IO.putStrLn (GHC.CString.unpackCString# "c"#)) - (GHC.Base.>> - @ GHC.Types.IO + (putStrLn (unpackCString# "c"#)) + (>> + @ IO GHC.Base.$fMonadIO @ () @ () - (System.IO.putStrLn (GHC.CString.unpackCString# "x"#)) - (GHC.Base.>> - @ GHC.Types.IO + (putStrLn (unpackCString# "x"#)) + (>> + @ IO GHC.Base.$fMonadIO @ () @ () - (System.IO.putStrLn (GHC.CString.unpackCString# "z"#)) - (GHC.Base.>> - @ GHC.Types.IO + (putStrLn (unpackCString# "z"#)) + (>> + @ IO GHC.Base.$fMonadIO @ () @ () - (System.IO.putStrLn (GHC.CString.unpackCString# "efg"#)) + (putStrLn (unpackCString# "efg"#)) (Control.Exception.Base.patError - @ (GHC.Types.IO ()) "T9400.hs:(17,5)-(18,29)|case"#)))) + @ (IO ()) "T9400.hs:(17,5)-(18,29)|case"#)))) |