[project @ 2000-04-25 11:27:35 by rrt]

[ghc-hetmet.git] / ghc / tests / io / should_run / io016.hs

diff --git a/ghc/tests/io/should_run/io016.hs b/ghc/tests/io/should_run/io016.hs
index 1ce01b2..fc48cb5 100644 (file)
--- a/ghc/tests/io/should_run/io016.hs
+++ b/ghc/tests/io/should_run/io016.hs
@@ -1,10 +1,13 @@
-import IO -- 1.3
+import IO
 
 import System (getArgs)
 import Char   (toUpper)
+import Directory (removeFile, doesFileExist)
 
 main   =  getArgs                           >>=        \ [f1,f2] ->
           openFile f1 ReadMode              >>=        \ h1      ->
+          doesFileExist f2                  >>=        \ f       ->
+          if f then removeFile f2 else return () >>
           openFile f2 WriteMode             >>=        \ h2      ->
           copyFile h1 h2                    >>
           hClose h1                         >>