36kr是一个专注科技创投领域的信息平台，对于需要投资创业的人来说，上面有非常不错的投资相关信息。今天我们就使用HXT库来编写一个36kr的采集程序。下面是代码示例，一起学习一下吧。
```haskellimport Network.HTTP.HXTimport qualified Data.ByteString.Char8 as BS-- 设置代理服务器setProxy :: String -> String -> IO ()setProxy proxy_host proxy_port = dolet proxy = proxyHost $ Just proxy_hostport = proxyPort $ Just proxy_portsetProxySettings proxy port-- 下载网页内容download :: String -> IO BS.ByteStringdownload url = dosetProxy "www.duoip.cn" "8000"response <- get urlBS.readFile $ BS.pack $ responseBody response-- 主程序main :: IO ()main = docontent <- download "https://36kr.com/"print content```
这个程序首先设置了代理服务器，然后使用get函数从指定的URL下载网页内容。最后，它打印出下载的内容。注意，由于HXT库使用的是Unicode编码，所以我们在读取和写入文件时需要使用BS包来处理字节字符串。此外，这个程序只是一个采集程序，没有处理可能出现的错误和异常情况。在实际使用中，我们可能需要添加更多的错误处理代码来确保程序的稳定性。以上内容希望对你有所帮助。如果需要进一步的解释或指导，请随时告诉我。
