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

remove unnecessary use of ensureProperty

This commit is contained in:
Joey Hess 2015-05-24 17:12:17 -04:00
parent b68b9ee165
commit 3a99c87cdf
Failed to extract signature
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Propellor/Property/Docker.hs
View File

@ -426,13 +426,11 @@ runningContainer cid@(ContainerId hn cn) image runps = containerDesc cid $ prope
retry (n-1) a retry (n-1) a
_ -> return v _ -> return v
go img = do go img = liftIO $ do
liftIO $ do
clearProvisionedFlag cid clearProvisionedFlag cid
createDirectoryIfMissing True (takeDirectory $ identFile cid) createDirectoryIfMissing True (takeDirectory $ identFile cid)
shim <- liftIO $ Shim.setup (localdir </> "propellor") Nothing (localdir </> shimdir cid) shim <- Shim.setup (localdir </> "propellor") Nothing (localdir </> shimdir cid)
liftIO $ writeFile (identFile cid) (show ident) writeFile (identFile cid) (show ident)
ensureProperty $ property "run" $ liftIO $
toResult <$> runContainer img toResult <$> runContainer img
(runps ++ ["-i", "-d", "-t"]) (runps ++ ["-i", "-d", "-t"])
[shim, "--continue", show (DockerInit (fromContainerId cid))] [shim, "--continue", show (DockerInit (fromContainerId cid))]