@@ -39,6 +39,7 @@ run :: Int -- ^ Port to run the backend
3939run port backend frontend = do
4040 let handleBackendErr (_ :: SomeException) = hPutStrLn stderr "backend stopped; make a change to your code to reload"
4141 backendTid <- forkIO $ handle handleBackendErr $ withArgs ["--quiet", "--port", show port] backend
42+ putStrLn $ "Backend running on port " <> show port
4243 let conf = defRunConfig { _runConfig_redirectPort = port }
4344 runWidget conf frontend
4445 killThread backendTid