rename aka to alias
This commit is contained in:
parent
d1db64b3bc
commit
9e578aca6b
|
@ -42,8 +42,8 @@ ipv6 addr = pureAttrProperty ("ipv6 " ++ addr)
|
||||||
(addDNS $ Address $ IPv6 addr)
|
(addDNS $ Address $ IPv6 addr)
|
||||||
|
|
||||||
-- | Indicates another name for the host in the DNS.
|
-- | Indicates another name for the host in the DNS.
|
||||||
aka :: Domain -> Property
|
alias :: Domain -> Property
|
||||||
aka domain = pureAttrProperty ("aka " ++ domain)
|
alias domain = pureAttrProperty ("aka " ++ domain)
|
||||||
(addDNS $ CNAME $ AbsDomain domain)
|
(addDNS $ CNAME $ AbsDomain domain)
|
||||||
|
|
||||||
addDNS :: Record -> SetAttr
|
addDNS :: Record -> SetAttr
|
||||||
|
|
|
@ -30,7 +30,7 @@ import Data.List
|
||||||
--
|
--
|
||||||
-- > host "foo.example.com"
|
-- > host "foo.example.com"
|
||||||
-- > & ipv4 "192.168.1.1"
|
-- > & ipv4 "192.168.1.1"
|
||||||
-- > & aka "mail.exmaple.com"
|
-- > & alias "mail.exmaple.com"
|
||||||
--
|
--
|
||||||
-- Will cause that hostmame and its alias to appear in the zone file,
|
-- Will cause that hostmame and its alias to appear in the zone file,
|
||||||
-- with the configured IP address.
|
-- with the configured IP address.
|
||||||
|
@ -134,7 +134,7 @@ namedConfFile = "/etc/bind/named.conf.local"
|
||||||
-- repository to the SerialNumber.
|
-- repository to the SerialNumber.
|
||||||
--
|
--
|
||||||
-- Handy trick: You don't need to list IPAddrs in the [Record],
|
-- Handy trick: You don't need to list IPAddrs in the [Record],
|
||||||
-- just make some Host sets its `aka` to the root of domain.
|
-- just make some Host sets its `alias` to the root of domain.
|
||||||
mkSOA :: Domain -> SerialNumber -> [Record] -> SOA
|
mkSOA :: Domain -> SerialNumber -> [Record] -> SOA
|
||||||
mkSOA d sn rs = SOA
|
mkSOA d sn rs = SOA
|
||||||
{ sDomain = AbsDomain d
|
{ sDomain = AbsDomain d
|
||||||
|
|
|
@ -183,8 +183,8 @@ memory = runProp "memory"
|
||||||
|
|
||||||
-- | Link with another container on the same host.
|
-- | Link with another container on the same host.
|
||||||
link :: ContainerName -> ContainerAlias -> Property
|
link :: ContainerName -> ContainerAlias -> Property
|
||||||
link linkwith alias = genProp "link" $ \hn ->
|
link linkwith calias = genProp "link" $ \hn ->
|
||||||
fromContainerId (ContainerId hn linkwith) ++ ":" ++ alias
|
fromContainerId (ContainerId hn linkwith) ++ ":" ++ calias
|
||||||
|
|
||||||
-- | A short alias for a linked container.
|
-- | A short alias for a linked container.
|
||||||
-- Each container has its own alias namespace.
|
-- Each container has its own alias namespace.
|
||||||
|
|
|
@ -48,18 +48,18 @@ hosts = -- (o) `
|
||||||
& Postfix.satellite
|
& Postfix.satellite
|
||||||
& Docker.configured
|
& Docker.configured
|
||||||
|
|
||||||
& aka "shell.olduse.net"
|
& alias "shell.olduse.net"
|
||||||
& JoeySites.oldUseNetShellBox
|
& JoeySites.oldUseNetShellBox
|
||||||
|
|
||||||
& aka "openid.kitenet.net"
|
& alias "openid.kitenet.net"
|
||||||
& Docker.docked hosts "openid-provider"
|
& Docker.docked hosts "openid-provider"
|
||||||
`requires` Apt.installed ["ntp"]
|
`requires` Apt.installed ["ntp"]
|
||||||
|
|
||||||
& aka "ancient.kitenet.net"
|
& alias "ancient.kitenet.net"
|
||||||
& Docker.docked hosts "ancient-kitenet"
|
& Docker.docked hosts "ancient-kitenet"
|
||||||
|
|
||||||
-- I'd rather this were on diatom, but it needs unstable.
|
-- I'd rather this were on diatom, but it needs unstable.
|
||||||
& aka "kgb.kitenet.net"
|
& alias "kgb.kitenet.net"
|
||||||
& JoeySites.kgbServer
|
& JoeySites.kgbServer
|
||||||
|
|
||||||
& Docker.garbageCollected `period` Daily
|
& Docker.garbageCollected `period` Daily
|
||||||
|
@ -101,25 +101,25 @@ hosts = -- (o) `
|
||||||
& Apache.multiSSL
|
& Apache.multiSSL
|
||||||
& File.ownerGroup "/srv/web" "joey" "joey"
|
& File.ownerGroup "/srv/web" "joey" "joey"
|
||||||
|
|
||||||
& aka "git.kitenet.net"
|
& alias "git.kitenet.net"
|
||||||
& aka "git.joeyh.name"
|
& alias "git.joeyh.name"
|
||||||
& JoeySites.gitServer hosts
|
& JoeySites.gitServer hosts
|
||||||
|
|
||||||
& aka "downloads.kitenet.net"
|
& alias "downloads.kitenet.net"
|
||||||
& JoeySites.annexWebSite hosts "/srv/git/downloads.git"
|
& JoeySites.annexWebSite hosts "/srv/git/downloads.git"
|
||||||
"downloads.kitenet.net"
|
"downloads.kitenet.net"
|
||||||
"840760dc-08f0-11e2-8c61-576b7e66acfd"
|
"840760dc-08f0-11e2-8c61-576b7e66acfd"
|
||||||
[("turtle", "ssh://turtle.kitenet.net/~/lib/downloads/")]
|
[("turtle", "ssh://turtle.kitenet.net/~/lib/downloads/")]
|
||||||
& JoeySites.annexRsyncServer
|
& JoeySites.annexRsyncServer
|
||||||
|
|
||||||
& aka "tmp.kitenet.net"
|
& alias "tmp.kitenet.net"
|
||||||
& JoeySites.annexWebSite hosts "/srv/git/joey/tmp.git"
|
& JoeySites.annexWebSite hosts "/srv/git/joey/tmp.git"
|
||||||
"tmp.kitenet.net"
|
"tmp.kitenet.net"
|
||||||
"26fd6e38-1226-11e2-a75f-ff007033bdba"
|
"26fd6e38-1226-11e2-a75f-ff007033bdba"
|
||||||
[]
|
[]
|
||||||
& JoeySites.twitRss
|
& JoeySites.twitRss
|
||||||
|
|
||||||
& aka "nntp.olduse.net"
|
& alias "nntp.olduse.net"
|
||||||
& JoeySites.oldUseNetServer hosts
|
& JoeySites.oldUseNetServer hosts
|
||||||
|
|
||||||
& Dns.primary hosts "olduse.net"
|
& Dns.primary hosts "olduse.net"
|
||||||
|
@ -285,11 +285,11 @@ monsters = -- but do want to track their public keys etc.
|
||||||
, host "wren.kitenet.net"
|
, host "wren.kitenet.net"
|
||||||
& ipv4 "80.68.85.49"
|
& ipv4 "80.68.85.49"
|
||||||
& ipv6 "2001:41c8:125:49::10"
|
& ipv6 "2001:41c8:125:49::10"
|
||||||
& aka "kite.kitenet.net"
|
& alias "kite.kitenet.net"
|
||||||
, host "branchable.com"
|
, host "branchable.com"
|
||||||
& ipv4 "66.228.46.55"
|
& ipv4 "66.228.46.55"
|
||||||
& ipv6 "2600:3c03::f03c:91ff:fedf:c0e5"
|
& ipv6 "2600:3c03::f03c:91ff:fedf:c0e5"
|
||||||
& aka "olduse.net"
|
& alias "olduse.net"
|
||||||
& aka "www.olduse.net"
|
& alias "www.olduse.net"
|
||||||
& aka "git.olduse.net"
|
& alias "git.olduse.net"
|
||||||
]
|
]
|
||||||
|
|
|
@ -3,8 +3,8 @@ propellor (0.4.0) UNRELEASED; urgency=medium
|
||||||
* Propellor can configure primary DNS servers, including generating
|
* Propellor can configure primary DNS servers, including generating
|
||||||
zone files, which is done by looking at the properties of hosts
|
zone files, which is done by looking at the properties of hosts
|
||||||
in a domain.
|
in a domain.
|
||||||
* The `cname` property was renamed to `aka` as it does not always generate
|
* The `cname` property was renamed to `alias` as it does not always
|
||||||
CNAME in the DNS.
|
generate CNAME in the DNS.
|
||||||
* Constructor of Property has changed (use `property` function instead).
|
* Constructor of Property has changed (use `property` function instead).
|
||||||
* All Property combinators now combine together their Attr settings.
|
* All Property combinators now combine together their Attr settings.
|
||||||
So Attr settings can be made inside a propertyList, for example.
|
So Attr settings can be made inside a propertyList, for example.
|
||||||
|
|
Loading…
Reference in New Issue