X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=haskell-dns.git;a=blobdiff_plain;f=Network%2FDNS%2FNamed.hs;h=4a9eaed2fa26eda15576a94673deead4c5d42a82;hp=8b50060634547d1284dcaf80eb2b18dd50bfcc20;hb=248b1c63284bbe00550bf2402ee6a9da6997143e;hpb=d19ee92905c9bf32fb53c9cc0841537c7b92901c

diff --git a/Network/DNS/Named.hs b/Network/DNS/Named.hs
index 8b50060..4a9eaed 100644
--- a/Network/DNS/Named.hs
+++ b/Network/DNS/Named.hs
@@ -69,7 +69,7 @@ runNamed cnf findZone
       tcpHandler :: Handle -> IO ()
       tcpHandler h
           = do lenB   <- LBS.hGet h 2
-               if LBS.null lenB then
+               if LBS.length lenB < 2 then
                    -- Got EOF
                    hClose h
                  else