summaryrefslogtreecommitdiff
path: root/Propellor/Attr.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-18 23:41:26 -0400
committerJoey Hess2014-04-18 23:41:26 -0400
commit7e9853520b5b7233ce9a9c8153f6c366cab0ee39 (patch)
treed0db9a167ace047e4e7ecbe83ed419faf7d63b59 /Propellor/Attr.hs
parent21bb63ab58fe4fde0bc9ff15e1e98dcacc2f845b (diff)
The `cname` property was renamed to `aka` as it does not always generate CNAME in the DNS.
Diffstat (limited to 'Propellor/Attr.hs')
-rw-r--r--Propellor/Attr.hs11
1 files changed, 3 insertions, 8 deletions
diff --git a/Propellor/Attr.hs b/Propellor/Attr.hs
index a4d7a958..8c4a2add 100644
--- a/Propellor/Attr.hs
+++ b/Propellor/Attr.hs
@@ -41,16 +41,11 @@ ipv6 :: String -> Property
ipv6 addr = pureAttrProperty ("ipv6 " ++ addr)
(addDNS $ Address $ IPv6 addr)
--- | Indicate that a host has a CNAME pointing at it in the DNS.
-cname :: Domain -> Property
-cname domain = pureAttrProperty ("cname " ++ domain)
+-- | Indicates another name for the host in the DNS.
+aka :: Domain -> Property
+aka domain = pureAttrProperty ("aka " ++ domain)
(addDNS $ CNAME $ AbsDomain domain)
-cnameFor :: Domain -> (Domain -> Property) -> Property
-cnameFor domain mkp =
- let p = mkp domain
- in p { propertyAttr = propertyAttr p . addDNS (CNAME $ AbsDomain domain) }
-
addDNS :: Record -> SetAttr
addDNS record d = d { _dns = S.insert record (_dns d) }