summaryrefslogtreecommitdiff
path: root/Propellor/Types/Attr.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Propellor/Types/Attr.hs')
-rw-r--r--Propellor/Types/Attr.hs16
1 files changed, 16 insertions, 0 deletions
diff --git a/Propellor/Types/Attr.hs b/Propellor/Types/Attr.hs
new file mode 100644
index 00000000..20e5e631
--- /dev/null
+++ b/Propellor/Types/Attr.hs
@@ -0,0 +1,16 @@
+module Propellor.Types.Attr where
+
+import qualified Data.Set as S
+
+-- | The attributes of a host. For example, its hostname.
+data Attr = Attr
+ { _hostname :: HostName
+ , _cnames :: S.Set Domain
+ }
+ deriving (Eq, Show)
+
+newAttr :: HostName -> Attr
+newAttr hn = Attr hn S.empty
+
+type HostName = String
+type Domain = String