summaryrefslogtreecommitdiff
path: root/Propellor
diff options
context:
space:
mode:
authorJoey Hess2014-04-03 23:16:34 -0400
committerJoey Hess2014-04-03 23:16:34 -0400
commit5499b2a612d9379fc8a3ed3ea2e70165e0bdefad (patch)
treeb9ed8abe61b19d32eb9c50fd050001d007ed9105 /Propellor
parent8868b4401057bb6152f628cacff261f9353335cd (diff)
propellor spin
Diffstat (limited to 'Propellor')
-rw-r--r--Propellor/Property/Docker/Shim.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Propellor/Property/Docker/Shim.hs b/Propellor/Property/Docker/Shim.hs
index 0e0f55e7..402f1c12 100644
--- a/Propellor/Property/Docker/Shim.hs
+++ b/Propellor/Property/Docker/Shim.hs
@@ -45,6 +45,7 @@ file propellorbin dest = dest </> propellorbin
installFile :: FilePath -> FilePath -> IO ()
installFile top f = do
createDirectoryIfMissing True destdir
+ nukeFile dest
createLink f dest `catchIO` (const copy)
where
copy = void $ boolSystem "cp" [Param "-a", Param f, Param dest]