36kr是一個專注科技創(chuàng)投領(lǐng)域的信息平臺，對于需要投資創(chuàng)業(yè)的人來說，上面有非常不錯的投資相關(guān)信息。今天我們就使用HXT庫來編寫一個36kr的采集程序。下面是代碼示例，一起學(xué)習(xí)一下吧。

```haskell

import Network.HTTP.HXT

import qualified Data.ByteString.Char8 as BS

-- 設(shè)置代理服務(wù)器

setProxy :: String -> String -> IO ()

setProxy proxy_host proxy_port = do

let proxy = proxyHost $ Just proxy_host

port = proxyPort $ Just proxy_port

setProxySettings proxy port

-- 下載網(wǎng)頁內(nèi)容

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

```

這個程序首先設(shè)置了代理服務(wù)器，然后使用get函數(shù)從指定的URL下載網(wǎng)頁內(nèi)容。最后，它打印出下載的內(nèi)容。注意，由于HXT庫使用的是Unicode編碼，所以我們在讀取和寫入文件時需要使用BS包來處理字節(jié)字符串。此外，這個程序只是一個采集程序，沒有處理可能出現(xiàn)的錯誤和異常情況。在實際使用中，我們可能需要添加更多的錯誤處理代碼來確保程序的穩(wěn)定性。以上內(nèi)容希望對你有所幫助。如果需要進(jìn)一步的解釋或指導(dǎo)，請隨時告訴我。