module Main where

import Server (mainServer)
import ParseRequest (parseRequest)
import ShowRequest
import Response

import IO

main = mainServer handleClient

handleClient (h, hostname, portnumber) = do
  hSetBuffering h LineBuffering
  request <- parseRequest h
  case request of
    Nothing -> return ()
    (Just (Left status)) -> generateResponseError h status 
    (Just (Right req)) -> generateResponseTextPlain h 200 [] (show req)
  hClose h
  return True