X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed%2FResponseBuilder.hs;h=5201ce3e22ff4ba4e87edbf99d3dff1c66fc6f5b;hp=4f08c401f2d6ea1b0627eae1eedadab5b013e7c1;hb=d19ee92905c9bf32fb53c9cc0841537c7b92901c;hpb=957d3f466cea2fa642f67f477ec4ad9a0d535a9b

diff --git a/Network/DNS/Named/ResponseBuilder.hs b/Network/DNS/Named/ResponseBuilder.hs
index 4f08c40..5201ce3 100644
--- 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