-- 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
+ return $ do mapM_ addAnswer $ concat results
+ unless (zoneIsAuthoritative zone) $
+ unauthorise
validateQuery :: Message -> ResponseCode