summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2015-10-16 14:40:31 -0400
committerJoey Hess2015-10-16 14:40:31 -0400
commit1382d4ecb9076f9fffc36f8a12dc068e43acc13e (patch)
tree6768173fe35cd54a5183d41bb78eeab05830a092 /src
parentc554c3fd04fce51fff51010a110dc9a2a761cfc1 (diff)
rename
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/Spin.hs8
1 files changed, 4 insertions, 4 deletions
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