Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/08b7a84aae077eef1839b81cf0d9e713547b2a51 >--------------------------------------------------------------- commit 08b7a84aae077eef1839b81cf0d9e713547b2a51 Author: Ian Lynagh <[email protected]> Date: Thu Apr 14 20:50:46 2011 +0100 Fix readFile001 on Windows >--------------------------------------------------------------- .../lib/IO/readFile001.stdout-i386-unknown-mingw32 | 5 +++-- 1 files changed, 3 insertions(+), 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 index 93bfc9b..d086f3a 100644 --- 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
