Main.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Concurrent        (forkIO)
import           Control.Monad             (forever)
-- import qualified Data.ByteString.Char8 as S
import           Network.Socket            hiding (recv)
import           Network.Socket.ByteString (sendAll)

main :: IO ()
main = withSocketsDo $
  do addrinfos <- getAddrInfo
                  (Just (defaultHints {addrFlags = [AI_PASSIVE]}))
                  Nothing
                  (Just "3000")
     let serveraddr = head addrinfos
     sock <- socket (addrFamily serveraddr) Stream defaultProtocol
     bindSocket sock (addrAddress serveraddr)
     listen sock 5
     forever $ accept sock >>= forkIO . handleClientRequest

handleClientRequest :: (Socket, a) -> IO ()
handleClientRequest (conn, _) = do
  sendAll conn "HTTP/1.1 200 Ok\r\ncontent-length: 0\r\n\r\n" -- $
    -- S.unlines [ "HTTP/1.1 200 Ok\r\n"
    --           , "content-length: 0\r\n\r\n"
    --           ]
  sClose conn