summaryrefslogtreecommitdiff
path: root/Propellor/Types
diff options
context:
space:
mode:
authorJoey Hess2014-04-19 01:42:19 -0400
committerJoey Hess2014-04-19 01:42:19 -0400
commitf10c4d4aff6810a502cfc770013046e42efc33ef (patch)
treeb3ecd60d32166aca84dc0d72bbebff359778fa3e /Propellor/Types
parent9e578aca6b0914443c95f8691fd3ba39522f28fc (diff)
make primary dns server beat secondary if both are defined for a domain
Made my config file simpler..
Diffstat (limited to 'Propellor/Types')
-rw-r--r--Propellor/Types/Attr.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Propellor/Types/Attr.hs b/Propellor/Types/Attr.hs
index f64b0487..8b7d3b09 100644
--- a/Propellor/Types/Attr.hs
+++ b/Propellor/Types/Attr.hs
@@ -4,6 +4,7 @@ import Propellor.Types.OS
import qualified Propellor.Types.Dns as Dns
import qualified Data.Set as S
+import qualified Data.Map as M
-- | The attributes of a host. For example, its hostname.
data Attr = Attr
@@ -11,7 +12,7 @@ data Attr = Attr
, _os :: Maybe System
, _sshPubKey :: Maybe String
, _dns :: S.Set Dns.Record
- , _namedconf :: S.Set Dns.NamedConf
+ , _namedconf :: M.Map Dns.Domain Dns.NamedConf
, _dockerImage :: Maybe String
, _dockerRunParams :: [HostName -> String]
@@ -42,6 +43,6 @@ instance Show Attr where
]
newAttr :: HostName -> Attr
-newAttr hn = Attr hn Nothing Nothing S.empty S.empty Nothing []
+newAttr hn = Attr hn Nothing Nothing S.empty M.empty Nothing []
type SetAttr = Attr -> Attr