From a5524343704a4037d5a4dd0a860a50f3eaeee12c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 2 Apr 2014 19:07:48 -0400 Subject: layout --- Propellor/Property/Docker.hs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'Propellor/Property') 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 -- cgit v1.2.3