¿Cuál es la forma de haskell para copiar un directorio?

Question

Me encuentro haciendo más y más scripts en haskell. Pero hay algunos casos en los que realmente no estoy seguro de cómo hacerlo "bien".
p. copiar un directorio recursivamente (a la unix cp -r).

Desde que todo utilizar Linux y Mac OS por lo general trampa:

import System.Cmd 
import System.Exit 

copyDir :: FilePath -> FilePath -> IO ExitCode 
copyDir src dest = system $ "cp -r " ++ srC++ " " ++ dest 

pero lo que es la forma recomendada para copiar un directorio de una manera independiente de la plataforma?
No encontré nada adecuado en hackage.

Esta es mi aplicación en lugar naiv utilizo hasta el momento:

import System.Directory 
import System.FilePath((</>)) 
import Control.Applicative((<$>)) 
import Control.Exception(throw) 
import Control.Monad(when,forM_) 

copyDir :: FilePath -> FilePath -> IO() 
copyDir src dst = do 
    whenM (not <$> doesDirectoryExist src) $ 
    throw (userError "source does not exist") 
    whenM (doesFileOrDirectoryExist dst) $ 
    throw (userError "destination already exists") 

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

    where 
    doesFileOrDirectoryExist x = orM [doesDirectoryExist x, doesFileExist x] 
    orM xs = or <$> sequence xs 
    whenM s r = s >>= flip when r 

Cualquier sugerencia de lo que realmente es la manera de hacerlo?

---

He actualizado esto con las sugerencias de hammar y FUZxxl.
... pero aún así me parece algo torpe para una tarea tan común.

Answer 1

No pude encontrar nada que haga esto en Hackage.

Tu código se ve bastante bien para mí. Algunos comentarios:

1. dstExists <- doesDirectoryExist dst 
   

   Esto no tiene en cuenta que un archivo con el nombre de destino podría existir.

2. if or [not srcExists, dstExists] then print "cannot copy" 
   

   Es posible que desee lanzar una excepción o devolver un estado en lugar de imprimir directamente desde esta función.

3. paths <- forM xs $ \name -> do 
       [...] 
       return() 
   

   Puesto que usted no está utilizando paths para cualquier cosa, puede cambiar esto a

   forM_ xs $ \name -> do 
       [...] 
   

Answer 2

El paquete proporciona recorrido recursivo de directorios, los cuales es posible que puedas usarlo para simplificar tu código.

Answer 3

Es posible usar la biblioteca Shelly con el fin de hacer esto, vea cp_r:

cp_r "sourcedir" "targetdir" 

Shelly primero intenta utilizar nativa cp -r si está disponible.Si no, se recurre a una implementación nativa de Haskell IO.

Para más detalles sobre la semántica de tipo de cp_r, ver this post escritos por mí se describe cómo utilizar cp_r con String y o Text.

Answer 4

El paquete filesystem-trees proporciona los medios para una implementación muy sencilla:

import System.File.Tree (getDirectory, copyTo_) 

copyDirectory :: FilePath -> FilePath -> IO() 
copyDirectory source target = getDirectory source >>= copyTo_ target