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

propellor spin

This commit is contained in:
Joey Hess 2014-05-05 13:30:23 -03:00
parent 38cc968a35
commit 9c0e9e2f19
Failed to extract signature
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Propellor/Property/Docker.hs
View File

@ -346,11 +346,18 @@ provisionContainer cid = containerDesc cid $ property "provision" $ liftIO $ do
hPutStrLn stderr s hPutStrLn stderr s
hFlush stderr hFlush stderr
go Nothing rest go Nothing rest
Done -> ret lastline Done -> do
go lastline [] = ret lastline debug ["reached Done"]
ret lastline
go lastline [] = do
debug ["reached end of output"]
ret lastline
ret lastline = return $ fromMaybe FailedChange $ ret lastline = do
readish =<< lastline let v = fromMaybe FailedChange $
readish =<< lastline
debug ["provisionContainer returning", show v]
return v
stopContainer :: ContainerId -> IO Bool stopContainer :: ContainerId -> IO Bool
stopContainer cid = boolSystem dockercmd [Param "stop", Param $ fromContainerId cid ] stopContainer cid = boolSystem dockercmd [Param "stop", Param $ fromContainerId cid ]