diff options
Diffstat (limited to 'libraries/base/tests/IO/ioeGetFileName001.hs')
| -rw-r--r-- | libraries/base/tests/IO/ioeGetFileName001.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/tests/IO/ioeGetFileName001.hs b/libraries/base/tests/IO/ioeGetFileName001.hs index 410093f027..030126c90d 100644 --- a/libraries/base/tests/IO/ioeGetFileName001.hs +++ b/libraries/base/tests/IO/ioeGetFileName001.hs @@ -7,6 +7,6 @@ main = do h <- openFile "ioeGetFileName001.hs" ReadMode hSeek h SeekFromEnd 0 (hGetChar h >> return ()) `catchIOError` - \e -> if isEOFError e - then print (ioeGetFileName e) - else putStrLn "failed." + \e -> if isEOFError e + then print (ioeGetFileName e) + else putStrLn "failed." |