summaryrefslogtreecommitdiff
path: root/src/Propellor/Info.hs
diff options
context:
space:
mode:
authorJoey Hess2015-09-20 15:10:35 -0400
committerJoey Hess2015-09-20 15:10:35 -0400
commitc3e489e7c3adba47211eda05bc52487caece6f32 (patch)
tree67a1a4ca4a6def22be712e37cc27475252069093 /src/Propellor/Info.hs
parent2c84f8b38d48b36199f61ee3562a35f95a54e259 (diff)
parent9f4b3e0ed4de04ba5fb754ea45402465faf30783 (diff)
Merge branch 'joeyconfig'
Diffstat (limited to 'src/Propellor/Info.hs')
-rw-r--r--src/Propellor/Info.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Info.hs b/src/Propellor/Info.hs
index 74614a1b..fed62ff9 100644
--- a/src/Propellor/Info.hs
+++ b/src/Propellor/Info.hs
@@ -74,13 +74,14 @@ addDNS r = pureInfoProperty (rdesc r) (toDnsInfo (S.singleton r))
rdesc (SRV x y z d) = unwords ["SRV", show x, show y, show z, ddesc d]
rdesc (SSHFP x y s) = unwords ["SSHFP", show x, show y, s]
rdesc (INCLUDE f) = unwords ["$INCLUDE", f]
+ rdesc (PTR x) = unwords ["PTR", x]
ddesc (AbsDomain domain) = domain
ddesc (RelDomain domain) = domain
ddesc RootDomain = "@"
hostMap :: [Host] -> M.Map HostName Host
-hostMap l = M.fromList $ zip (map hostName l) l
+hostMap l = M.fromList $ zip (map hostName l) l
aliasMap :: [Host] -> M.Map HostName Host
aliasMap = M.fromList . concat .