summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-04-02 19:07:48 -0400
committerJoey Hess2014-04-02 19:07:48 -0400
commita5524343704a4037d5a4dd0a860a50f3eaeee12c (patch)
tree81104418d7158d7b5538004abd5d73b37c43f13c
parentcd10ceb976c38b2df0101a601022918852def4b3 (diff)
layout
-rw-r--r--Propellor/Property/Docker.hs13
1 files changed, 6 insertions, 7 deletions
diff --git a/Propellor/Property/Docker.hs b/Propellor/Property/Docker.hs
index a712d7b7..9c104b2f 100644
--- a/Propellor/Property/Docker.hs
+++ b/Propellor/Property/Docker.hs
@@ -54,13 +54,12 @@ docked findc hn cn = findContainer findc hn cn $
runningContainer cid image containerprops
`requires`
installed
- teardown =
- Property ("undocked " ++ fromContainerId cid) $
- report <$> mapM id
- [ stopContainerIfRunning cid
- , removeContainer cid
- , removeImage image
- ]
+ teardown = Property ("undocked " ++ fromContainerId cid) $
+ report <$> mapM id
+ [ stopContainerIfRunning cid
+ , removeContainer cid
+ , removeImage image
+ ]
in RevertableProperty setup teardown
where
cid = ContainerId hn cn