diff options
author | Ben Clifford <benc@cqx.ltd.uk> | 2012-03-27 17:35:35 +1000 |
---|---|---|
committer | Ben <benc@hawaga.org.uk> | 2012-03-27 17:35:35 +1000 |
commit | 5585edc688ba8447d1e8ba24e669fb43dbc986ee (patch) | |
tree | 1e88abdca53f9f23e78211dd7909e904773c0939 | |
parent | 635f6bec8c1d598a4caa0ca3ed01aeac2cc9c4ff (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.hs | 2 |
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 |