diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-03 23:16:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-03 23:16:34 -0400 |
| commit | 5499b2a612d9379fc8a3ed3ea2e70165e0bdefad (patch) | |
| tree | b9ed8abe61b19d32eb9c50fd050001d007ed9105 | |
| parent | 8868b4401057bb6152f628cacff261f9353335cd (diff) | |
propellor spin
| -rw-r--r-- | Propellor/Property/Docker/Shim.hs | 1 |
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] |