summaryrefslogtreecommitdiff
path: root/Propellor/Types
diff options
context:
space:
mode:
authorJoey Hess2014-04-10 21:09:20 -0400
committerJoey Hess2014-04-10 21:13:56 -0400
commit50cd59cb3e6d20afe48a50fa9dc0c3a9cf9d9960 (patch)
treea40995cebd88f276750a3f998124d4d55aaecdba /Propellor/Types
parent981085fe8148c23985e1735f0a0926d2efd62375 (diff)
new more expressive config.hs WIP
Diffstat (limited to 'Propellor/Types')
-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