Show the URL of the WS connection.

2023-07-07 20:29:49 +02:00 · 2023-07-07 20:29:49 +02:00 · caaefcca3e
parent 0fb4fcd608
commit caaefcca3e
1 changed files with 6 additions and 1 deletions
--- a/src/App/WS.purs
+++ b/src/App/WS.purs
@ -109,7 +109,12 @@ render { wsInfo }
            ]
        else
          HH.p_
-            [ renderFootnote "NOTE: A 'Reconnect?' button will appear if the connection drops"
+            [ renderFootnote $
+                "NOTE: A 'Reconnect?' button will appear if the connection drops (for URL: '"
+                <>
+                wsInfo.url
+                <>
+                "')"
            ]

 handleAction :: forall m. MonadAff m => Action -> H.HalogenM State Action () Output m Unit