hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: improve haddock comments

Browse Source
This commit is contained in:
Julian Ospald 2015-12-18 15:50:33 +01:00
parent 51fffabe22
commit a4849cf044
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/IO/File.hs
View File

@ -69,6 +69,12 @@ data FileOperation = FCopy DTInfoZipper DTInfoZipper
| None
-- |Directory copy modes.
-- Strict means we fail if the target directory already exists.
-- Merge means we keep the old directories/files, but overwrite old files
-- on collision.
-- Replace means the target directory will be removed recursively before
-- performing the copy operation.
data DirCopyMode = Strict
| Merge
| Replace
@ -85,9 +91,7 @@ runFileOp _ = return ()
-- TODO: allow renaming
-- |Copies a directory to the given destination. If the target directory
-- already exists, performs a semi-defined merge, overwriting already
-- existing files.
-- |Copies a directory to the given destination.
copyDir :: DirCopyMode
-> DTInfoZipper -- ^ source dir
-> DTInfoZipper -- ^ destination dir