DomainMap: totally untested yet

[haskell-dns.git] / Network / DNS / Named.hs

diff --git a/Network/DNS/Named.hs b/Network/DNS/Named.hs
index 8b50060634547d1284dcaf80eb2b18dd50bfcc20..4a9eaed2fa26eda15576a94673deead4c5d42a82 100644 (file)
--- 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