23 lines
707 B
Haskell
23 lines
707 B
Haskell
import Network.HTTP.Server
|
|
import Network.HTTP.Server.Logger
|
|
import Network.HTTP.Base
|
|
import Network.HTTP.Headers
|
|
import Network.Socket.Internal
|
|
import Network.URL
|
|
|
|
displayListHdr :: [Header] -> [Char]
|
|
displayListHdr = concatMap show
|
|
|
|
copyHeaders :: SockAddr -> URL -> Request [Char] -> IO (Response [Char])
|
|
copyHeaders addr url req =
|
|
return Response {rspCode = (2,0,0)
|
|
,rspReason = "OK"
|
|
,rspHeaders = [Header HdrConnection "close"]
|
|
,rspBody = displayListHdr $ rqHeaders req}
|
|
|
|
main = serverWith config copyHeaders
|
|
where
|
|
config = Config { srvLog = quietLogger
|
|
, srvHost = "menf.in"
|
|
, srvPort = 8000 }
|