This commit is contained in:
Joey Hess 2014-04-02 19:07:48 -04:00
parent cd10ceb976
commit a552434370
1 changed files with 6 additions and 7 deletions

View File

@ -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