gistfile1.txt

import Network
import System.IO
import Control.Monad
import Control.Concurrent

main :: IO ()
main = withSocketsDo $ do
  val <- getContents
  sock <- listenOn $ PortNumber 8080
  forever $ do
    (handle, _host, _port) <- accept sock
    forkFinally (talk handle val) (\_ -> hClose handle)
  where
    talk h val = do
      hPutStr h val
      v <-  hGetContents h
      putStr v