Fix readFile001 on Windows

ghc · Apr 14, 2011 · 08b7a84 · 08b7a84
1 parent 4e5cccf
commit 08b7a84
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tests/ghc-regress/lib/IO/readFile001.stdout-i386-unknown-mingw32 b/tests/ghc-regress/lib/IO/readFile001.stdout-i386-unknown-mingw32
@@ -1,7 +1,8 @@
 Left readFile001.out: openFile: permission denied (Permission denied)
 -- !!! readFile test
 
-import IO
+import System.IO
+import System.IO.Error
 
 source   = "readFile001.hs"
 filename = "readFile001.out"
@@ -15,7 +16,7 @@ main = do
 
   -- This open should fail, because the readFile hasn't been forced
   -- and the file is therefore still locked.
-  try (openFile filename WriteMode) >>= print
+  tryIOError (openFile filename WriteMode) >>= print
 
   putStrLn s