The server started somewhat working...

[haskell-dns.git] / Network / DNS / Named.hs

diff --git a/Network/DNS/Named.hs b/Network/DNS/Named.hs
index 57d9ea4b78b6a765bce5a044444503211c1a8b21..dbe8e71c2865f135ac93d41d2439e3f4bf16d0e5 100644 (file)
--- 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