小编Son*_*raj的帖子

该模块Network.HTTP 暴露功能receiveHTTP和respondHTTP我想使用一个非常基本的Web服务器.我写了一个等待客户的存根:

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Network.HTTP
import Network
import Control.Monad

main = withSocketsDo $ do
  socket <- listenOn $ PortNumber 8080
  forever $ do
    (handle, host, port) <- accept socket
    print (host, port)

这里accpet给了我Handle,现在我无法弄清楚如何使用Handle带receiveHTTP.

我找到了谷歌的一个例子,但它是从2008年开始的,不再适用了.我无法移植它.

有任何想法吗？