Implemented AXFR protocol.

[haskell-dns.git] / Network / DNS / Named / ResponseBuilder.hs

diff --git a/Network/DNS/Named/ResponseBuilder.hs b/Network/DNS/Named/ResponseBuilder.hs
index 4f08c401f2d6ea1b0627eae1eedadab5b013e7c1..5201ce3e22ff4ba4e87edbf99d3dff1c66fc6f5b 100644 (file)
--- a/Network/DNS/Named/ResponseBuilder.hs
+++ b/Network/DNS/Named/ResponseBuilder.hs
@@ -6,6 +6,7 @@ module Network.DNS.Named.ResponseBuilder
     , unauthorise
     , setResponseCode
     , addAnswer
+    , addAnswerNonuniquely
     , addAuthority
     , addAdditional
     )
@@ -68,6 +69,11 @@ addAnswer rr
              $ modify $ \ s ->
                  s { msgAnswers = msgAnswers s ++ [rr] }
 
+addAnswerNonuniquely :: SomeRR -> Builder ()
+addAnswerNonuniquely rr
+    = modify $ \ s ->
+      s { msgAnswers = msgAnswers s ++ [rr] }
+
 addAuthority :: SomeRR -> Builder ()
 addAuthority rr
     = do anss <- get msgAnswers