如何让Haskell的Network.Browser做gzip压缩？

Question

Haskell的Network.Browser模块似乎没有做任何压缩。我怎样才能配置它，以便它假定服务器支持它进行gzip压缩（或者如果不支持则不会回退到压缩）？

Answer 1

这里的“相当容易”解决方案rkhayrov指的快速版本：

import Codec.Compression.GZip (decompress) 
import Control.Arrow (second) 
import Control.Monad (liftM) 
import qualified Data.ByteString.Lazy as B 
import Network.Browser 
import Network.HTTP (Request, Response, getRequest, getResponseBody, rspBody) 
import Network.HTTP.Headers (HasHeaders, HeaderName (..), findHeader, replaceHeader) 
import Network.TCP (HStream, HandleStream) 
import Network.URI (URI, parseURI) 

gzipRequest :: URI -> BrowserAction (HandleStream B.ByteString) (URI, Response B.ByteString) 
gzipRequest 
    = liftM (second unzipIfNeeded) 
    . request 
    . replaceHeader HdrAcceptEncoding "gzip" 
    . defaultGETRequest_ 
    where 
    unzipIfNeeded rsp 
     | isGz rsp = rsp { rspBody = decompress $ rspBody rsp } 
     | otherwise = rsp 
     where 
     isGz rsp = maybe False (== "gzip") $ findHeader HdrContentEncoding rsp 

我跑了如下几个测试：

main = print =<< rspBody . snd <$> (getResponse =<< head <$> getArgs) 
    where 
    getResponse = browse . gzipRequest . fromJust . parseURI 

它适用于预期两个Yahoo（压缩）和Google（未压缩）主页。