directory-1.2.2.0: tests/copyFile001.hs

module Main (main) where

import Control.Exception
import Data.List
import System.Directory
import System.IO

main :: IO ()
main = do tryIO $ removeFile to
          cs_before <- getDirectoryContents "copyFile001dir"
          putStrLn "Before:"
          print $ sort cs_before
          copyFile from to
          cs_before <- getDirectoryContents "copyFile001dir"
          putStrLn "After:"
          print $ sort cs_before
          readFile to >>= print

tryIO :: IO a -> IO (Either IOException a)
tryIO = try

from, to :: FilePath
from = "copyFile001dir/source"
to   = "copyFile001dir/target"