2 module Main (main) where
4 import Control.Exception
6 import System.Directory
10 main = do ignoreExceptions $ removeFile to
11 cs_before <- getDirectoryContents "copyFile"
13 print $ sort cs_before
15 cs_before <- getDirectoryContents "copyFile"
17 print $ sort cs_before
21 from = "copyFile/source"
22 to = "copyFile/target"