From 1382d4ecb9076f9fffc36f8a12dc068e43acc13e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 16 Oct 2015 14:40:31 -0400 Subject: rename --- src/Propellor/Property/Spin.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Propellor/Property/Spin.hs') diff --git a/src/Propellor/Property/Spin.hs b/src/Propellor/Property/Spin.hs index 24b8a3b6..d590e319 100644 --- a/src/Propellor/Property/Spin.hs +++ b/src/Propellor/Property/Spin.hs @@ -8,13 +8,13 @@ import Propellor.Types.CmdLine (ControllerChain(..)) import Propellor.Types.Info class Controlled t where - toHosts :: t -> [Host] + controlledHosts :: t -> [Host] instance Controlled Host where - toHosts h = [h] + controlledHosts h = [h] instance Controlled [Host] where - toHosts = id + controlledHosts = id -- | The Host that has this Property is in control of some other Hosts. -- @@ -31,7 +31,7 @@ instance Controlled [Host] where -- Chains of controllers are supported; host A can control host B which -- controls host C. Loops of controllers are automatically prevented. controller :: Controlled h => h -> Property NoInfo -controller h = propertyList "controller" (map controller' (toHosts h)) +controller h = propertyList "controller" (map controller' (controlledHosts h)) controller' :: Host -> Property NoInfo controller' h = property ("controller for " ++ hostName h) $ do -- cgit v1.2.3