import Network.HTTP
import Network.HTTP.Conduit
import Data.Aeson
import Data.Text.Encoding
import Data.Text (Text)
import qualified Data.ByteString.Lazy as B-- 代理配置
proxyHost = "jshk.com.cn"-- 爬虫程序入口
main :: IO ()
main = do-- 创建HTTP代理连接proxy <- createProxy conduit proxyHost proxyPort-- 发送HTTP GET请求response <- liftIO $ httpGet proxy $ URL "http://example.prestashop.com"-- 获取响应内容responseBody <- liftIO $ responseBody response-- 将响应内容解码为JSON格式let json = decode responseBody-- 打印解析后的JSON内容print json

运行上述代码会通过proxyHost和proxyPort配置的代理连接访问`，并将获取的响应内容解码为JSON格式并打印。

注意，createProxy函数需要conduit库的支持，可以通过cabal install conduit命令进行安装。