Follow extensible exceptions changes

[haskell-directory.git] / tests / copyFile002.hs

diff --git a/tests/copyFile002.hs b/tests/copyFile002.hs
index 332d762..ff42d67 100644 (file)
--- a/tests/copyFile002.hs
+++ b/tests/copyFile002.hs
@@ -12,7 +12,7 @@ main :: IO ()
 main = do d <- getCurrentDirectory
           flip finally (setCurrentDirectory d) $ do
           setCurrentDirectory "copyFile"
-          try $ removeFile to
+          ignoreExceptions $ removeFile to
           cs_before <- getDirectoryContents "."
           putStrLn "Before:"
           print $ sort cs_before