From c2ff5be4ea729e9ae4ae069224bd6634f3b6d4f0 Mon Sep 17 00:00:00 2001
From: Nikolay Yakimov <root@livid.pp.ru>
Date: Sat, 4 Jul 2015 01:10:17 +0300
Subject: [PATCH] Better test for redirected check

Output now doesn't depend on compiler version
---
 test/FileMappingSpec.hs              | 2 +-
 test/data/file-mapping/File_Redir.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/FileMappingSpec.hs b/test/FileMappingSpec.hs
index 91576a3e8..ccd39be30 100644
--- a/test/FileMappingSpec.hs
+++ b/test/FileMappingSpec.hs
@@ -88,7 +88,7 @@ spec = do
             res <- run defaultOptions {fileMappings = fm} $ do
               loadMappedFiles
               checkSyntax ["File.hs"]
-            res `shouldBe` "File.hs:1:1:Warning: Top-level binding with no type signature: main :: forall t. t\n"
+            res `shouldBe` "File.hs:1:1:Warning: Top-level binding with no type signature: main :: IO ()\n"
         it "checks in-memory file if one is specified and outputs original filename" $ do
           withDirectory_ "test/data/file-mapping" $ do
             let fm = [("File.hs", MemoryMapping $ Just "main = putStrLn \"Hello World!\"\n")]
diff --git a/test/data/file-mapping/File_Redir.hs b/test/data/file-mapping/File_Redir.hs
index 45846a99d..d5e55ccff 100644
--- a/test/data/file-mapping/File_Redir.hs
+++ b/test/data/file-mapping/File_Redir.hs
@@ -1 +1 @@
-main = undefined
+main = putStrLn "Hello World!"