diff options
| author | Joey Hess <joey@kitenet.net> | 2014-05-05 13:30:23 -0300 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-05 13:30:23 -0300 |
| commit | 9c0e9e2f192541db06d6559722c64ee740975236 (patch) | |
| tree | e1919bb4c2e7374a311ae02ae946eee1e04bcb7a /Propellor/Property | |
| parent | 38cc968a35d2256254d7a3fcc4d0e206d81cd25f (diff) | |
propellor spin
Diffstat (limited to 'Propellor/Property')
| -rw-r--r-- | Propellor/Property/Docker.hs | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index e5b8d64a..6757c7cc 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -346,11 +346,18 @@ provisionContainer cid = containerDesc cid $ property "provision" $ liftIO $ do hPutStrLn stderr s hFlush stderr go Nothing rest - Done -> ret lastline - go lastline [] = ret lastline + Done -> do + debug ["reached Done"] + ret lastline + go lastline [] = do + debug ["reached end of output"] + ret lastline - ret lastline = return $ fromMaybe FailedChange $ - readish =<< lastline + ret lastline = do + let v = fromMaybe FailedChange $ + readish =<< lastline + debug ["provisionContainer returning", show v] + return v stopContainer :: ContainerId -> IO Bool stopContainer cid = boolSystem dockercmd [Param "stop", Param $ fromContainerId cid ] |