summaryrefslogtreecommitdiff
path: root/testsuite/tests/simplCore/should_compile/T9400.stderr
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2014-10-30 11:41:17 +0000
committerSimon Peyton Jones <simonpj@microsoft.com>2014-11-04 10:38:06 +0000
commit5479ae0a0ff6d5df2da4f6208ce747f669c6d492 (patch)
tree1a7d32c9657d59690c47135898086955d5907bb5 /testsuite/tests/simplCore/should_compile/T9400.stderr
parent66658eedf0aa51de37ff6d2d009a2f37208985ca (diff)
downloadhaskell-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.stderr30
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"#))))