diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-04 15:54:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-04 15:54:42 -0400 |
| commit | 68ed5153aa3f8a0e50952120c3dbb2386a067ee3 (patch) | |
| tree | ead8adbafefd0602648255edcc7146df02414b8b | |
| parent | 1a44d4010aabae565355943ba8684ecd1ec9d829 (diff) | |
propellor spin
| -rw-r--r-- | Propellor/Property/Docker.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index 36e3cfcd..107c542e 100644 --- a/Propellor/Property/Docker.hs +++ b/Propellor/Property/Docker.hs @@ -246,8 +246,9 @@ runningContainer cid@(ContainerId hn cn) image containerprops = containerDesc ci go oldimage getrunningident :: IO (Maybe ContainerIdent) - getrunningident = simpleShClient (namedPipe cid) "cat" [propellorIdent] $ - return . extractident + getrunningident = simpleShClient (namedPipe cid) "cat" [propellorIdent] $ \rs -> do + print (extractident rs) + return $ extractident rs extractident :: [Resp] -> Maybe ContainerIdent extractident = headMaybe . catMaybes . map (readish :: String -> Maybe ContainerIdent) . catMaybes . map getStdout |