Update README.md (generated from README.lhs)
commite173f3ba00a973ab7b5b5d233c9cca869e9d0338
authorSimon Hengel <sol@typeful.net>
dateWed 1 Feb 2012, 10:42 (15 years ago)
parentd3cc79e
wai/README.md+4−1
@@ -12,9 +12,12 @@ You want a minimal example? Here it is!
1212 import Network.HTTP.Types
1313 import Network.Wai.Handler.Warp (run)
1414 import Data.ByteString.Lazy.Char8 () -- Just for an orphan instance
15+ import Control.Monad.IO.Class (liftIO)
1516
1617 app :: Application
17− app _ = return $ responseLBS
18+ app _ = do
19+ liftIO $ putStrLn "I've done some IO here"
20+ return $ responseLBS
1821 status200
1922 [("Content-Type", "text/plain")]
2023 "Hello, Web!"