HaskellでWebサーバー

simple-server.hs

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

application :: Application
application req respond = case rawPathInfo req of
                          "/" -> respond $ responseFile status200 [("Content-Type", "text/html")] "index.html" Nothing
                            p -> respond $ responseFile status200 [] p' Nothing
                                where p' = tail . unpack $ p

main :: IO()
main = do
    putStrLn "Server started"
    run 3000 application