使用一个简单的Haskell爬虫程序，用于爬取京东优惠券的key值

在Haskell中，我们可以通过使用Hakyll库来创建一个爬虫程序。Hakyll是一个用于静态网站生成的库，它可以用于构建网站，也可以用于爬虫。以下是一个简单的Haskell爬虫程序，用于爬取京东优惠券的key值：

```haskell
import Network.HTTP
import Network.HTTP.Conduit
import Data.Text (Text)
import Data.Aeson (decode)

main :: IO ()
main = do
  let proxyHost = "www.duoip.cn"
  let proxyPort = 8000
  let url = "http://www.jd.com/goods优惠券.html"
  let proxyURL = "http://" ++ proxyHost ++ ":" ++ proxyPort ++ "/"

  let response = httpGet (ProxyURL ++ url)
  case response of
    Left err -> putStrLn $ "Error: " ++ show err
    Right (status, body) -> do
      putStrLn $ "Status: " ++ show status
      case body of
        Left err -> putStrLn $ "Error: " ++ show err
        Right content -> do
          let json = decode content