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