@@ -78,10 +78,10 @@ hGetEntropy (UseRdRand h) = \n ->
7878
7979fdReadBS :: Fd -> Int -> IO B.ByteString
8080fdReadBS fd n =
81− allocaBytes n $ \buf -> go buf (fromIntegral n)
81+ allocaBytes n $ \buf -> go buf n
8282 where
8383 go buf 0 = B.packCStringLen (castPtr buf, fromIntegral n)
84− go buf cnt | cnt < n = do
84+ go buf cnt | cnt <= n = do
8585 rc <- fdReadBuf fd (plusPtr buf (n - cnt)) (fromIntegral cnt)
8686 case rc of
8787 0 -> ioError (ioeSetErrorString (mkIOError eofErrorType "fdRead" Nothing Nothing) "EOF")