diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-02 19:07:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-02 19:07:48 -0400 |
| commit | a5524343704a4037d5a4dd0a860a50f3eaeee12c (patch) | |
| tree | 81104418d7158d7b5538004abd5d73b37c43f13c | |
| parent | cd10ceb976c38b2df0101a601022918852def4b3 (diff) | |
layout
| -rw-r--r-- | Propellor/Property/Docker.hs | 13 |
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 |