- = do zone <- findZone zf (qName q)
- results <- mapM (runResponder' q) (zoneResponders zone)
- return $ concat results
+ = do zone <- findZone zf (qName q)
+ -- FIXME: this is merely a bogus implementation.
+ -- It considers no additional or authoritative sections.
+ results <- mapM (runResponder' q) (zoneResponders zone)
+ return $ mapM_ addAnswer $ concat results