X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed.hs;h=dbe8e71c2865f135ac93d41d2439e3f4bf16d0e5;hp=57d9ea4b78b6a765bce5a044444503211c1a8b21;hb=d24a461f09bd10e3fe148e3b6b86c8e861b09a43;hpb=5015e5caa39e015e6ffa28a87fc5f189e7ba3c71

diff --git a/Network/DNS/Named.hs b/Network/DNS/Named.hs
index 57d9ea4..dbe8e71 100644
--- a/Network/DNS/Named.hs
+++ b/Network/DNS/Named.hs
@@ -72,7 +72,9 @@ runNamed cnf zf
                -- 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