summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Unbound.hs
diff options
context:
space:
mode:
authorFélix Sipma2018-04-01 22:24:17 +0200
committerFélix Sipma2018-05-04 15:11:25 +0200
commit2793b4be94890f4b64f37c695495ff9e4ba0d5d2 (patch)
tree50a026814f2f8aa6c341cfe919912e202dec8461 /src/Propellor/Property/Unbound.hs
parentb70f2f6edf5a8f2ca5cfbea3ec6af805a818788a (diff)
Unbound: handle SRV record
Diffstat (limited to 'src/Propellor/Property/Unbound.hs')
-rw-r--r--src/Propellor/Property/Unbound.hs10
1 files changed, 9 insertions, 1 deletions
diff --git a/src/Propellor/Property/Unbound.hs b/src/Propellor/Property/Unbound.hs
index 470aad7e..e6b6ca88 100644
--- a/src/Propellor/Property/Unbound.hs
+++ b/src/Propellor/Property/Unbound.hs
@@ -120,7 +120,15 @@ genRecord dom (PTR revip) = Just $ genPTR dom revip
genRecord _ (CNAME _) = Nothing
genRecord _ (NS _) = Nothing
genRecord _ (TXT _) = Nothing
-genRecord _ (SRV _ _ _ _) = Nothing
+genRecord dom (SRV priority weight port target) = Just $ unwords
+ [ dValue dom
+ , "IN"
+ , "SRV"
+ , val priority
+ , val weight
+ , val port
+ , dValue target
+ ]
genRecord _ (SSHFP _ _ _) = Nothing
genRecord _ (INCLUDE _) = Nothing