diff options
| -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] |