採集Prestashop獨立站

```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 "

  -- 獲取響應內容

  responseBody <- liftIO $ responseBody response

  -- 將響應內容解碼為JSON格式

  let json = decode responseBody

  -- 列印解析後的JSON內容

  print json

```

執行上述程式碼會透過`proxyHost`和`proxyPort`配置的代理連線訪問`，並將獲取的響應內容解碼為JSON格式並列印。

注意，`createProxy`函式需要`conduit`庫的支援，可以透過`cabal install conduit`命令進行安裝。