diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-19 01:42:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-19 01:42:19 -0400 |
| commit | f10c4d4aff6810a502cfc770013046e42efc33ef (patch) | |
| tree | b3ecd60d32166aca84dc0d72bbebff359778fa3e /Propellor/Types | |
| parent | 9e578aca6b0914443c95f8691fd3ba39522f28fc (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.hs | 5 |
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 |