@@ -41,7 +41,7 @@ run :: Int -- ^ Port to run the backend
4141 -> (StaticWidget () (), Widget () ()) -- ^ Frontend widget (head, body)
4242 -> IO ()
4343run port backend frontend = do
44− let handleBackendErr (_ :: IOException) = hPutStrLn stderr "backend stopped; make a change to your code to reload"
44+ let handleBackendErr (e :: IOException) = hPutStrLn stderr $ "backend stopped; make a change to your code to reload - error " <> show e
4545 backendTid <- forkIO $ handle handleBackendErr $ withArgs ["--quiet", "--port", show port] backend
4646 putStrLn $ "Backend running on port " <> show port
4747 let conf = defRunConfig { _runConfig_redirectPort = port }