eternal-0.0.1: src/Control/Eternal/System/FileSystem.hs

module Control.Eternal.System.FileSystem
  ( copyDir
  ) where

import System.Directory(createDirectory, getDirectoryContents, doesDirectoryExist, copyFile)
import Control.Monad(forM_)

import System.FilePath((</>))

copyDir ::  FilePath -> FilePath -> IO ()
copyDir src dst = do
    createDirectory dst
    content <- getDirectoryContents src
    let xs = filter (`notElem` [".", ".."]) content
    forM_ xs $ \name -> let srcPath = src </> name
                            dstPath = dst </> name
        in doesDirectoryExist srcPath >>= \dirExist ->
            if dirExist then copyDir srcPath dstPath
                        else copyFile srcPath dstPath