diff options
Diffstat (limited to 'Propellor')
| -rw-r--r-- | Propellor/Property/Docker.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index 354d67cc..32ce847d 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -189,16 +189,18 @@ chain s = case readish s of -- 1 minute. provisionContainer :: ContainerId -> Property 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 - params = Chain $ fromContainerId cid + params = ["--continue", show $ Chain $ fromContainerId cid] go lastline (v:rest) = case v of StdoutLine s -> do + debug ["stdout: ", s] maybe noop putStrLn lastline hFlush stdout go (Just s) rest StderrLine s -> do + debug ["stderr: ", s] maybe noop putStrLn lastline hFlush stdout hPutStrLn stderr s |