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

propellor spin

This commit is contained in:
Joey Hess 2014-04-04 15:21:42 -04:00
parent fd1b037d45
commit d902a4924b
Failed to extract signature
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Propellor/Property/Docker.hs
View File

@ -236,10 +236,7 @@ runningContainer cid@(ContainerId hn cn) image containerprops = containerDesc ci
oldimage <- fromMaybe image <$> commitContainer cid oldimage <- fromMaybe image <$> commitContainer cid
void $ removeContainer cid void $ removeContainer cid
go oldimage go oldimage
else do else go image
whenM (elem cid <$> listContainers AllContainers) $ do
void $ removeContainer cid
go image
where where
ident = ContainerIdent image hn cn runps ident = ContainerIdent image hn cn runps