wai-handler-devel: Print url to app in run-smallapp.hs
commitbafaa43b654858f6af0220f644c35cebf7a896e4
authorSimon Hengel <sol@typeful.net>
dateMon 1 Apr 2013, 17:28 (14 years ago)
parent88d48e6
wai-handler-devel/run-smallapp.hs+3−1
@@ -1,4 +1,6 @@
11import Network.Wai.Handler.DevelServer (runQuit)
22
33main :: IO ()
4−main = runQuit 3000 "SmallApp" "smallApp" (const $ return [])
4+main = do
5+ putStrLn "http://localhost:3000"
6+ runQuit 3000 "SmallApp" "smallApp" (const $ return [])