Модуль Network.HTTP
предоставляет функции receiveHTTP
и respondHTTP
, которые я хотел бы использовать для очень простого веб-сервера. Я написал заглушку, которая просто ждет клиентов:
{-# 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
.
Я нашел пример с Google, но с 2008 года и больше не работает. И я не смог его перенести.
Любые идеи?