Readme for hack2-interface-wai-2012.5.25
Interfacing Hack2 and Wai
Example: test/hello
{-# LANGUAGE OverloadedStrings #-}
import Hack2
import Hack2.Interface.Wai (hackAppToWaiApp)
import Data.Default (def)
import Network.Wai.Handler.Warp (run)
app :: Application
app = \env ->
return $
Response 200 [ ("Content-Type", "text/plain") ] "Hello World (Hack2 to Wai)"
main :: IO ()
main = do
putStrLn $ "http://localhost:3000/"
run 3000 (hackAppToWaiApp app)