git.iko.soy/typeable/wai
on wai-extra/2.0.1.2 help sign in
typeable/wai/wai-handler-devel/SmallApp.hs
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'