-- connection refused...

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveDataTypeable #-}

module Main (main) where

import Network.Wai.Handler.Warp
import Network.Wai
import Network.HTTP.Types (statusOK, status400)

main :: IO ()
main = do
  run 8000 application

application req =
  return $ responseLBS statusOK [ ("Content-type", "text/plain") ] "Hello world!"