From 45349c210d0822e6041015d7681887ff02f87ce0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 21 Nov 2014 01:09:15 -0400 Subject: [PATCH] add missing support for reverting chroot wow, that was suprisingly trivial! --- src/Propellor/Property/Chroot.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Propellor/Property/Chroot.hs b/src/Propellor/Property/Chroot.hs index e6c2c84..874d775 100644 --- a/src/Propellor/Property/Chroot.hs +++ b/src/Propellor/Property/Chroot.hs @@ -42,15 +42,15 @@ provisioned c@(Chroot loc system _) = RevertableProperty where go desc a = property (chrootDesc c desc) $ ensureProperties [a] - setup = provisionChroot c `requires` built + setup = provisionChroot c `requires` toProp built built = case system of (System (Debian _) _) -> 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 c p = propigateInfo c p (<> chrootInfo c)