```haskell

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`命令进行安装。

ITPub博客

采集Prestashop独立站