21 lines
535 B
Haskell
21 lines
535 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
import Network.Wai
|
|
import Network.Wai.Handler.Warp
|
|
import Network.HTTP.Types (status200)
|
|
import Blaze.ByteString.Builder (copyByteString)
|
|
import qualified Data.ByteString.UTF8 as BU
|
|
import Data.Monoid
|
|
|
|
main = do
|
|
let port = 8080
|
|
putStrLn $ "Listening on port " ++ show port
|
|
run port app
|
|
|
|
app req respond = respond $
|
|
case pathInfo req of
|
|
x -> index x
|
|
|
|
index x = responseBuilder status200 [("Content-Type", "text/plain")] $ mconcat $ map copyByteString
|
|
[ "Hello World!\n" ]
|