在Haskell中解压缩zlib数据-不正确的头检查

Question

我编写了一个简单的Haskell程序，它从某个网站获取一些压缩数据，然后解压缩它，但是我总是收到一个错误，上面写着“不正确的标题检查”。

我用D写了同样的程序，效果很好。

现在，我可以在Haskell中获取原始压缩数据，唯一的问题似乎是DecompressParams中的窗口位和缓冲区大小。( Haskell中的DecompressParam不接受负值)

FYI:你可以通过“4750304”程序进行测试。

这是我的Haskell代码

module Main where

import Codec.Compression.Zlib
import Network.HTTP
import System.Environment (getArgs)
import Data.ByteString.Lazy.Char8

commentURL :: [Char] -> [Char]
commentURL cid = do
    "http://comment.bilibili.com/" ++ cid ++ ".xml"

main :: IO ()
main = do
    (arg:_) <- getArgs
    do
        body <- simpleHTTP (getRequest $ commentURL arg) >>= getResponseBody
        let params = DecompressParams {
                        decompressWindowBits = WindowBits 15, 
                        decompressBufferSize = 0, 
                        decompressDictionary = Nothing
                     }
        let p = decompressWith params (pack body)
        Data.ByteString.Lazy.Char8.putStrLn p

和D中的工作代码

import std.stdio;
import std.net.curl;
import std.array;
import std.string;
import std.zlib;

void main(string[] args) {
    if (args[1].length <= 14 && args[1].isNumeric) {
        auto url = appender!string;
        url.put("comment.bilibili.com/");
        url.put(args[1]);
        url.put(".xml");

        auto deflate = get(url.data);
        auto data = cast(char[])uncompress(deflate, 0, -15);
        // DecompressParam in Haskell doesn't accept negative value

        File file = File(args[1]~".xml", "wb");
        file.write(data);
        file.close();
    } else {
        writeln("Usage: "~args[0]~" [cid]");
    }
}

Answer 1

将ZLib导入更改为

import Codec.Compression.Zlib.Raw

甚至默认的params也在我的机器上工作：

body <- simpleHTTP (getRequest $ commentURL arg) >>= getResponseBody
let p = decompress (pack body)
Data.ByteString.Lazy.Char8.putStrLn p

给我

<?xml version="1.0" encoding="UTF-8"?><i><chatserver>chat.bilibili.com</chatserver><chatid>4750304</chatid><mission>...

注意:您可以避免打包字符串，将network添加到您的阴谋文件中，添加import Network.URI (parseURI)导入和

let Just u = parseURI $ commentURL arg
do
    body <- simpleHTTP (mkRequest GET u) >>= getResponseBody
    let p = decompress body

只使用ByteStrings。