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

protocol debug

This commit is contained in:
Joey Hess 2014-04-01 14:28:05 -04:00
parent 50f68604e1
commit 5d06f1ebc3
Failed to extract signature
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Propellor/Property/Docker.hs
View File

@ -189,16 +189,18 @@ chain s = case readish s of
-- 1 minute. -- 1 minute.
provisionContainer :: ContainerId -> Property provisionContainer :: ContainerId -> Property
provisionContainer cid = containerDesc cid $ Property "provision" $ provisionContainer cid = containerDesc cid $ Property "provision" $
simpleShClientRetry 60 (namedPipe cid) "./propellor" ["--continue", show params] (go Nothing) simpleShClientRetry 60 (namedPipe cid) "./propellor" params (go Nothing)
where where
params = Chain $ fromContainerId cid params = ["--continue", show $ Chain $ fromContainerId cid]
go lastline (v:rest) = case v of go lastline (v:rest) = case v of
StdoutLine s -> do StdoutLine s -> do
debug ["stdout: ", s]
maybe noop putStrLn lastline maybe noop putStrLn lastline
hFlush stdout hFlush stdout
go (Just s) rest go (Just s) rest
StderrLine s -> do StderrLine s -> do
debug ["stderr: ", s]
maybe noop putStrLn lastline maybe noop putStrLn lastline
hFlush stdout hFlush stdout
hPutStrLn stderr s hPutStrLn stderr s