summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Ben Clifford <benc@cqx.ltd.uk>2012-03-27 17:35:35 +1000
committerGravatar Ben <benc@hawaga.org.uk>2012-03-27 17:35:35 +1000
commit5585edc688ba8447d1e8ba24e669fb43dbc986ee (patch)
tree1e88abdca53f9f23e78211dd7909e904773c0939
parent635f6bec8c1d598a4caa0ca3ed01aeac2cc9c4ff (diff)
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.
-rw-r--r--Network/DNS/Resolver.hs2
1 files changed, 1 insertions, 1 deletions
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