diff options
Diffstat (limited to 'libraries/base/tests/IO/openFile001.hs')
| -rw-r--r-- | libraries/base/tests/IO/openFile001.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/tests/IO/openFile001.hs b/libraries/base/tests/IO/openFile001.hs index f34f093d38..1a4339c021 100644 --- a/libraries/base/tests/IO/openFile001.hs +++ b/libraries/base/tests/IO/openFile001.hs @@ -6,6 +6,6 @@ import System.IO.Error main = do hIn <- openFile "openFile001.hs" ReadMode hPutStr hIn "test" `catchIOError` \ err -> - if isIllegalOperation err - then putStrLn "ok." - else error "Oh dear\n" + if isIllegalOperation err + then putStrLn "ok." + else error "Oh dear\n" |