diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2012-10-17 10:28:45 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2012-10-17 10:28:45 +0900 |
| commit | 3e364247caed8c0bbe0e81531473b6c6b86506c4 (patch) | |
| tree | 2233f4638b95643f74338fd08fd3e61fadf2f5a7 /Network/DNS/Resolver.hs | |
| parent | f392aa3a9105af46ee1e7522ad00f3508d068b88 (diff) | |
Using conduit.
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 |