Main.hs

{-# LANGUAGE OverloadedStrings #-}
 
import Network.Wai
import Network.Wai.Handler.Warp
import Network.HTTP.Types (status200)
import Blaze.ByteString.Builder (copyByteString)
import Data.Monoid
 
main = do
    let port = 8080
    putStrLn $ "Listening on port " ++ show port
    run port app
 
app req respond = respond $
    responseBuilder status200 [ ("Content-Type", "text/plain") ] $ mconcat $ map copyByteString [ "Hello World" ]