summaryrefslogtreecommitdiff
path: root/Propellor/Property
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Property')
-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