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.hs12
1 files changed, 5 insertions, 7 deletions
diff --git a/Propellor/Types/Attr.hs b/Propellor/Types/Attr.hs
index 00611775..cf8bdf1a 100644
--- a/Propellor/Types/Attr.hs
+++ b/Propellor/Types/Attr.hs
@@ -1,14 +1,15 @@
module Propellor.Types.Attr where
import Propellor.Types.OS
+import qualified Propellor.Types.Dns as Dns
import qualified Data.Set as S
-- | The attributes of a host. For example, its hostname.
data Attr = Attr
{ _hostname :: HostName
- , _cnames :: S.Set Domain
, _os :: Maybe System
+ , _dns :: S.Set Dns.Record
, _sshPubKey :: Maybe String
, _dockerImage :: Maybe String
@@ -18,8 +19,8 @@ data Attr = Attr
instance Eq Attr where
x == y = and
[ _hostname x == _hostname y
- , _cnames x == _cnames y
, _os x == _os y
+ , _dns x == _dns y
, _sshPubKey x == _sshPubKey y
, _dockerImage x == _dockerImage y
@@ -30,17 +31,14 @@ instance Eq Attr where
instance Show Attr where
show a = unlines
[ "hostname " ++ _hostname a
- , "cnames " ++ show (_cnames a)
, "OS " ++ show (_os a)
+ , "dns " ++ show (_dns a)
, "sshPubKey " ++ show (_sshPubKey a)
, "docker image " ++ show (_dockerImage a)
, "docker run params " ++ show (map (\mk -> mk "") (_dockerRunParams a))
]
newAttr :: HostName -> Attr
-newAttr hn = Attr hn S.empty Nothing Nothing Nothing []
-
-type HostName = String
-type Domain = String
+newAttr hn = Attr hn Nothing S.empty Nothing Nothing []
type SetAttr = Attr -> Attr