From 2ad09b34ecec5a643a4a08c88a0a1cc7703094e3 Mon Sep 17 00:00:00 2001 From: Felix Gruber Date: Sun, 18 Oct 2015 17:11:50 +0200 Subject: fix typo: propigate → propagate --- src/Propellor/Property/Spin.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property/Spin.hs') diff --git a/src/Propellor/Property/Spin.hs b/src/Propellor/Property/Spin.hs index ee65b0a9..ead85f59 100644 --- a/src/Propellor/Property/Spin.hs +++ b/src/Propellor/Property/Spin.hs @@ -40,7 +40,7 @@ instance Spinnable Host where noChange -- | Each Host in the list is spinned in turn. Does not stop on spin --- failure; does propigate overall success/failure. +-- failure; does propagate overall success/failure. instance Spinnable [Host] where toSpin l = propertyList (cdesc $ unwords $ map hostName l) (map toSpin l) @@ -131,7 +131,7 @@ isControlledBy :: Host -> Controlling -> Bool h `isControlledBy` (Controlled hs) = any (== hostName h) (map hostName hs) instance IsInfo Controlling where - propigateInfo _ = True + propagateInfo _ = True mkControllingInfo :: Host -> Info mkControllingInfo controlled = addInfo mempty (Controlled [controlled]) -- cgit v1.2.3