From d902a4924b6d8da24bea00b119793f90c88b238a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 4 Apr 2014 15:21:42 -0400 Subject: [PATCH] propellor spin --- Propellor/Property/Docker.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs index 0c52078..8d8cc1e 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