wai-handler-devel/SmallApp.hs · typeable/wai

git.iko.soy/typeable/wai

on warp-tls/2.0.1 help sign in

12 lines 317 B history raw

1{-# LANGUAGE OverloadedStrings #-}

2module SmallApp where

4import Network.Wai

5import Network.HTTP.Types

6import Data.ByteString.Lazy.Char8 ()

8testapp' :: Application

9testapp' _ = return $ responseLBS status200 [("Content-Type", "text/html")] "test"

11smallApp :: (Application -> IO ()) -> IO ()

12smallApp f = f testapp'