From d1db64b3bc4ef1c802344f666eb160d9a8c97cca Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sat, 19 Apr 2014 01:26:38 -0400
Subject: Propellor can configure primary DNS servers, including generating
 zone files, which is done by looking at the properties of hosts in a domain.

---
 Propellor/Attr.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'Propellor/Attr.hs')

diff --git a/Propellor/Attr.hs b/Propellor/Attr.hs
index 8c4a2add..a54d8833 100644
--- a/Propellor/Attr.hs
+++ b/Propellor/Attr.hs
@@ -49,6 +49,12 @@ aka domain = pureAttrProperty ("aka " ++ domain)
 addDNS :: Record -> SetAttr
 addDNS record d = d { _dns = S.insert record (_dns d) }
 
+addNamedConf :: NamedConf -> SetAttr
+addNamedConf conf d = d { _namedconf = S.insert conf (_namedconf d) }
+
+getNamedConf :: Propellor (S.Set NamedConf)
+getNamedConf = asks _namedconf
+
 sshPubKey :: String -> Property
 sshPubKey k = pureAttrProperty ("ssh pubkey known") $
 	\d -> d { _sshPubKey = Just k }
-- 
cgit v1.3-2-g0d8e