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

add missing support for reverting chroot 

wow, that was suprisingly trivial!
This commit is contained in:
Joey Hess 2014-11-21 01:09:15 -04:00
parent a904476333
commit 45349c210d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Propellor/Property/Chroot.hs
View File

@ -42,15 +42,15 @@ provisioned c@(Chroot loc system _) = RevertableProperty
where where
go desc a = property (chrootDesc c desc) $ ensureProperties [a] go desc a = property (chrootDesc c desc) $ ensureProperties [a]
setup = provisionChroot c `requires` built setup = provisionChroot c `requires` toProp built
built = case system of built = case system of
(System (Debian _) _) -> debootstrap (System (Debian _) _) -> debootstrap
(System (Ubuntu _) _) -> debootstrap (System (Ubuntu _) _) -> debootstrap
debootstrap = toProp (Debootstrap.built loc system []) debootstrap = Debootstrap.built loc system []
teardown = undefined teardown = toProp (revert built)
propigateChrootInfo :: Chroot -> Property -> Property propigateChrootInfo :: Chroot -> Property -> Property
propigateChrootInfo c p = propigateInfo c p (<> chrootInfo c) propigateChrootInfo c p = propigateInfo c p (<> chrootInfo c)