hunk ./Network/HTTP.hs 533 - Just x -> linearTransfer conn (read x :: Int) + Just x -> linearTransferStrLen conn x hunk ./Network/HTTP.hs 589 - Just x -> linearTransfer conn (read x :: Int) + Just x -> linearTransferStrLen conn x hunk ./Network/HTTP.hs 610 +linearTransferStrLen :: Stream s => s -> String -> IO (Result ([Header],String)) +linearTransferStrLen conn ns = + case reads ns of + [(n,"")] -> linearTransfer conn n + _ -> return $ Left $ ErrorParse $ "Content-Length header contains not a number: " ++ show ns +