Haskell http管道

Im使用http管道获取网页

import Network.Connection (TLSSettings (..))
import Network.HTTP.Conduit

main :: IO ()
main = do
    request <- parseUrl "https://somesites.com"
    let settings = mkManagerSettings (TLSSettingsSimple True False False) Nothing
    res <- withManagerSettings settings $ httpLbs request
    print res

我看不到身体的反应

这里怎么了？ 我猜服务器不喜欢非浏览器访问。

---

例如，我可以伪装成firefox浏览器吗？

您当然只需要添加一个用户代理头

simpleHTTPWithUserAgent :: String -> IO ()
simpleHTTPWithUserAgent url = do
    r  <- parseUrl url
    let request = r {requestHeaders = [("User-Agent","HTTP-Conduit")]}
    let settings = mkManagerSettings (TLSSettingsSimple True False False) Nothing
    res <- withManagerSettings settings $ httpLbs request
    print res

simpleHTTPWithUserAgent:：String->IO（）
simpleHTTPWithUserAgent url=do
R
simpleHTTPWithUserAgent :: String -> IO ()
simpleHTTPWithUserAgent url = do
    r  <- parseUrl url
    let request = r {requestHeaders = [("User-Agent","HTTP-Conduit")]}
    let settings = mkManagerSettings (TLSSettingsSimple True False False) Nothing
    res <- withManagerSettings settings $ httpLbs request
    print res