Mercurial > hg > Members > toma > Warp

view hello.hs @ 0:62ce408561ac

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add hello
author Daichi TOMA <toma@cr.ie.u-ryukyu.ac.jp>
date Tue, 11 Feb 2014 19:13:31 +0900
parents
children
line wrap: on
line source

{-# LANGUAGE OverloadedStrings #-}
import Network.Wai
import Network.HTTP.Types (status200)
import Network.Wai.Handler.Warp (run)
import Data.ByteString.Lazy.UTF8 (fromString)

application _ = return $
  responseLBS status200 [("Content-Type", "text/plain")] "hello world"

main = run 8080 application