diff options
| author | Felix Gruber <felgru@gmx.de> | 2015-10-18 17:11:50 +0200 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-18 14:14:07 -0400 |
| commit | 2ad09b34ecec5a643a4a08c88a0a1cc7703094e3 (patch) | |
| tree | 621ece48e772504492237e1b902c18062790b94b /src/Propellor/Property/Chroot.hs | |
| parent | 57f4eca88a1c3762b452171ee0a9d1a4f1367402 (diff) | |
fix typo: propigate → propagate
Diffstat (limited to 'src/Propellor/Property/Chroot.hs')
| -rw-r--r-- | src/Propellor/Property/Chroot.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/Chroot.hs b/src/Propellor/Property/Chroot.hs index ab914180..3a108540 100644 --- a/src/Propellor/Property/Chroot.hs +++ b/src/Propellor/Property/Chroot.hs @@ -7,7 +7,7 @@ module Propellor.Property.Chroot ( provisioned, -- * Internal use provisioned', - propigateChrootInfo, + propagateChrootInfo, propellChroot, chain, ) where @@ -61,7 +61,7 @@ debootstrapped system conf location = case system of -- is first unmounted. Note that it does not ensure that any processes -- that might be running inside the chroot are stopped. provisioned :: Chroot -> RevertableProperty -provisioned c = provisioned' (propigateChrootInfo c) c False +provisioned c = provisioned' (propagateChrootInfo c) c False provisioned' :: (Property HasInfo -> Property HasInfo) -> Chroot -> Bool -> RevertableProperty provisioned' propigator c@(Chroot loc system builderconf _) systemdonly = @@ -82,8 +82,8 @@ provisioned' propigator c@(Chroot loc system builderconf _) systemdonly = teardown = toProp (revert built) -propigateChrootInfo :: (IsProp (Property i)) => Chroot -> Property i -> Property HasInfo -propigateChrootInfo c@(Chroot location _ _ _) p = propigateContainer location c p' +propagateChrootInfo :: (IsProp (Property i)) => Chroot -> Property i -> Property HasInfo +propagateChrootInfo c@(Chroot location _ _ _) p = propagateContainer location c p' where p' = infoProperty (propertyDesc p) |