Devel server prints URL, not just port (#306)
This commit is contained in:
parent
4d7355cf33
commit
c3f58479f9
@ -92,6 +92,6 @@ defaultDevelApp load getApp = do
|
|||||||
conf <- load
|
conf <- load
|
||||||
logger <- defaultDevelopmentLogger
|
logger <- defaultDevelopmentLogger
|
||||||
let p = appPort conf
|
let p = appPort conf
|
||||||
logString logger $ "Devel application launched, listening on port " ++ show p
|
logString logger $ "Devel application launched: http://localhost:" ++ show p
|
||||||
app <- getApp conf logger
|
app <- getApp conf logger
|
||||||
return (p, app)
|
return (p, app)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user