cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-03 23:16:34 -04:00
parent 8868b44010
commit 5499b2a612
Failed to extract signature
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Propellor/Property/Docker/Shim.hs
View File

@ -45,6 +45,7 @@ file propellorbin dest = dest </> propellorbin
installFile :: FilePath -> FilePath -> IO () installFile :: FilePath -> FilePath -> IO ()
installFile top f = do installFile top f = do
createDirectoryIfMissing True destdir createDirectoryIfMissing True destdir
nukeFile dest
createLink f dest `catchIO` (const copy) createLink f dest `catchIO` (const copy)
where where
copy = void $ boolSystem "cp" [Param "-a", Param f, Param dest] copy = void $ boolSystem "cp" [Param "-a", Param f, Param dest]