summaryrefslogtreecommitdiff
path: root/src/Propellor/Property
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property')
-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