diff options
Diffstat (limited to 'Network/DNS/Resolver.hs')
-rw-r--r-- | Network/DNS/Resolver.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Network/DNS/Resolver.hs b/Network/DNS/Resolver.hs index 195ce39..fab99e2 100644 --- a/Network/DNS/Resolver.hs +++ b/Network/DNS/Resolver.hs @@ -173,10 +173,9 @@ lookupRaw :: Resolver -> Domain -> TYPE -> IO (Maybe DNSFormat) lookupRaw rlv dom typ = do seqno <- genId rlv sendAll sock (composeQuery seqno [q]) - (>>= check seqno) <$> timeout tm (receive sock bufsize) + (>>= check seqno) <$> timeout tm (receive sock) where sock = dnsSock rlv - bufsize = dnsBufsize rlv tm = dnsTimeout rlv q = makeQuestion dom typ check seqno res = do |