feat(sut): Make dumblog always print out what port it is running on

platonic-io · Mar 23, 2022 · b34e32e · b34e32e
1 parent 3e505c8
commit b34e32e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/sut/dumblog/src/Dumblog/Journal/FrontEnd.hs b/src/sut/dumblog/src/Dumblog/Journal/FrontEnd.hs
@@ -120,5 +120,5 @@ runFrontEnd port journal metrics feInfo mReady =
       --                   putStrLn ("warp, request: " ++ show req)
       --                   putStrLn ("warp, status: "  ++ show status)
       --                   print =<< Wai.strictRequestBody req)
-      $ maybe id (\ready -> setBeforeMainLoop (putMVar ready ())) mReady
+      $ setBeforeMainLoop (putStrLn ("Running on port " ++ show port) >> maybe (pure ()) (\ready -> putMVar ready ()) mReady)
       $ defaultSettings