summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
authorJoey Hess2014-05-31 17:22:35 -0400
committerJoey Hess2014-05-31 17:22:35 -0400
commitc742c2eb1b7141fbe0628870e899d3461a88686a (patch)
tree517abf211851134fb11150393d3817165a1c7a67 /src/Propellor/Types.hs
parent6383d8c38893c160382eb9bf69e0315c5e87269e (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Types.hs')
-rw-r--r--src/Propellor/Types.hs10
1 files changed, 7 insertions, 3 deletions
diff --git a/src/Propellor/Types.hs b/src/Propellor/Types.hs
index 8a4bd3dd..e5f5c1c7 100644
--- a/src/Propellor/Types.hs
+++ b/src/Propellor/Types.hs
@@ -34,9 +34,13 @@ import Propellor.Types.Attr
import Propellor.Types.OS
import Propellor.Types.Dns
--- | Everything Propellor knows about a system: Its properties and
--- attributes.
-data Host = Host [Property] SetAttr
+-- | Everything Propellor knows about a system: Its hostname,
+-- properties and attributes.
+data Host = Host
+ { _hostName :: HostName
+ , _hostProps :: [Property]
+ , _hostAttrs :: SetAttr
+ }
-- | Propellor's monad provides read-only access to attributes of the
-- system.