, unauthorise
, setResponseCode
, addAnswer
+ , addAnswerNonuniquely
, addAuthority
, addAdditional
)
$ 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