summaryrefslogtreecommitdiff
path: root/src/Propellor/Types.hs
diff options
context:
space:
mode:
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.