cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

layout

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Propellor/Property/Docker.hs
View File

@ -54,13 +54,12 @@ docked findc hn cn = findContainer findc hn cn $
runningContainer cid image containerprops runningContainer cid image containerprops
`requires` `requires`
installed installed
teardown = teardown = Property ("undocked " ++ fromContainerId cid) $
Property ("undocked " ++ fromContainerId cid) $ report <$> mapM id
report <$> mapM id [ stopContainerIfRunning cid
[ stopContainerIfRunning cid , removeContainer cid
, removeContainer cid , removeImage image
, removeImage image ]
]
in RevertableProperty setup teardown in RevertableProperty setup teardown
where where
cid = ContainerId hn cn cid = ContainerId hn cn