From 5585edc688ba8447d1e8ba24e669fb43dbc986ee Mon Sep 17 00:00:00 2001
From: Ben Clifford <benc@cqx.ltd.uk>
Date: Tue, 27 Mar 2012 17:35:35 +1000
Subject: When performing a raw lookup, return the whole answer even if there
 were no queries answers. This allows the application access to authoritative
 data for referrals and denials.

---
 Network/DNS/Resolver.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs
index 136b6ab..7cfb6d3 100644
--- a/Network/DNS/Resolver.hs
+++ b/Network/DNS/Resolver.hs
@@ -177,6 +177,6 @@ lookupRaw rlv dom typ = do
     q = makeQuestion dom typ
     check seqno res = do
         let hdr = header res
-        if identifier hdr == seqno && anCount hdr /= 0
+        if identifier hdr == seqno
             then Just res
             else Nothing
-- 
cgit v1.2.3