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

propellor spin

This commit is contained in:
Joey Hess 2014-11-19 01:32:09 -04:00
parent 8e3d7dc49a
commit 1872ee1ffc
Failed to extract signature
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -462,9 +462,11 @@ provisionContainer cid = containerDesc cid $ property "provisioned" $ liftIO $ d
chain :: String -> Host -> IO () chain :: String -> Host -> IO ()
chain s h = case toContainerId s of chain s h = case toContainerId s of
Just cid -> onlyProcess (provisioningLock cid) $ do Just cid -> do
r <- runPropellor h $ ensureProperties $ hostProperties h changeWorkingDirectory localdir
putStrLn $ "\n" ++ show r onlyProcess (provisioningLock cid) $ do
r <- runPropellor h $ ensureProperties $ hostProperties h
putStrLn $ "\n" ++ show r
Nothing -> error "bad container id" Nothing -> error "bad container id"
stopContainer :: ContainerId -> IO Bool stopContainer :: ContainerId -> IO Bool