From 3e364247caed8c0bbe0e81531473b6c6b86506c4 Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Wed, 17 Oct 2012 10:28:45 +0900
Subject: Using conduit.

---
 Network/DNS/Resolver.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'Network/DNS/Resolver.hs')

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
-- 
cgit v1.2.3