Commit 92a364ec authored by ijones's avatar ijones
Browse files

"system cp" to copyFile (by bringert)

parent 5d7cc9ba
......@@ -285,8 +285,8 @@ moveSources pref _targetDir sources mains searchSuffixes
$ nub [(removeFilename $ targetDir ++ x)
| x <- sourceLocsNoPref, (removeFilename x /= "")]
-- Put sources into place:
mapM system ["cp -r " ++ x ++ " " ++ targetDir
++ y | (x,y) <- (zip sourceLocs sourceLocsNoPref)]
sequence_ [copyFile x (pathJoin [targetDir, y])
| (x,y) <- (zip sourceLocs sourceLocsNoPref)]
return ()
where moduleToFPErr m
= do p <- moduleToFilePath pref m searchSuffixes
......
* Quick
** fix "Seperator" - use pathJoin
** use copyFile instead of "cp"
* misc
** Possibly create a (native?) zib library?
** port code to windows
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment