@@ -11,9 +11,12 @@ You want a minimal example? Here it is!
1111> import Network.HTTP.Types
1212> import Network.Wai.Handler.Warp (run)
1313> import Data.ByteString.Lazy.Char8 () -- Just for an orphan instance
14+> import Control.Monad.IO.Class (liftIO)
1415>
1516> app :: Application
16−> app _ = return $ responseLBS
17+> app _ = do
18+> liftIO $ putStrLn "I've done some IO here"
19+> return $ responseLBS
1720> status200
1821> [("Content-Type", "text/plain")]
1922> "Hello, Web!"