summaryrefslogtreecommitdiff
path: root/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2014-04-04 15:21:42 -0400
committerJoey Hess2014-04-04 15:21:42 -0400
commitd902a4924b6d8da24bea00b119793f90c88b238a (patch)
treeba5cf1ec728ec10f6f75f9447a376b48dceb81e0 /Propellor/Property
parentfd1b037d452b7e9ea58beb86eb26ea397f64c28c (diff)
propellor spin
Diffstat (limited to 'Propellor/Property')
-rw-r--r--Propellor/Property/Docker.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs
index 0c52078c..8d8cc1eb 100644
--- a/Propellor/Property/Docker.hs
+++ b/Propellor/Property/Docker.hs
@@ -236,10 +236,7 @@ runningContainer cid@(ContainerId hn cn) image containerprops = containerDesc ci
oldimage <- fromMaybe image <$> commitContainer cid
void $ removeContainer cid
go oldimage
- else do
- whenM (elem cid <$> listContainers AllContainers) $ do
- void $ removeContainer cid
- go image
+ else go image
where
ident = ContainerIdent image hn cn runps