summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Debootstrap.hs
diff options
context:
space:
mode:
authorJoey Hess2014-12-05 16:47:18 -0400
committerJoey Hess2014-12-05 16:48:52 -0400
commit00ab24016453c1d787b7132654f96f614d177d27 (patch)
tree0a7f2d4b5453c3bca00d10544e7cdd078aa8c894 /src/Propellor/Property/Debootstrap.hs
parent35648961ddbd65cd2f7901366610bfc318667a84 (diff)
fix install of debootstrap from source
Diffstat (limited to 'src/Propellor/Property/Debootstrap.hs')
-rw-r--r--src/Propellor/Property/Debootstrap.hs9
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs
index 35d9e472..b4fd2654 100644
--- a/src/Propellor/Property/Debootstrap.hs
+++ b/src/Propellor/Property/Debootstrap.hs
@@ -2,7 +2,9 @@ module Propellor.Property.Debootstrap (
Url,
DebootstrapConfig(..),
built,
+ built',
installed,
+ sourceInstall,
programPath,
) where
@@ -54,11 +56,14 @@ toParams (c1 :+ c2) = toParams c1 <> toParams c2
-- Note that reverting this property does not stop any processes
-- currently running in the chroot.
built :: FilePath -> System -> DebootstrapConfig -> RevertableProperty
-built target system@(System _ arch) config =
+built = built' (toProp installed)
+
+built' :: Property -> FilePath -> System -> DebootstrapConfig -> RevertableProperty
+built' installprop target system@(System _ arch) config =
RevertableProperty setup teardown
where
setup = check (unpopulated target <||> ispartial) setupprop
- `requires` toProp installed
+ `requires` installprop
teardown = check (not <$> unpopulated target) teardownprop