diff options
Diffstat (limited to 'Network/DNS/Resolver.hs')
| -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 |