解压函数在haskell中的实现

decompress :: ByteString -> Either Zlib.Error ByteString

import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Codec.Compression.Zlib as Z

-- 解压函数
decompress :: B.ByteString -> Either Z.ZlibError BL.ByteString
decompress = Z.decompress

-- 示例用法
main :: IO ()
main = do
    let compressedData = B.pack [0x1f, 0x8b, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x03, 0xcb, 0x48, 0xcd, 0xc9, 0xc9, 0x57, 0x28, 0xcf, 0x2f, 0xca, 0x49, 0x51, 0xe4, 0x02, 0x00, 0x1a, 0x0b, 0x8e, 0x5e, 0x1c, 0x00, 0x00, 0x00]
    case decompress compressedData of
        Left err -> putStrLn $ "解压失败: " ++ show err
        Right decompressedData -> putStrLn $ "解压成功: " ++ show (BL.unpack decompressedData)