From caaefcca3e424c83c79747c1c6c0bb85bb311a2b Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Fri, 7 Jul 2023 20:29:49 +0200
Subject: [PATCH] Show the URL of the WS connection.

---
 src/App/WS.purs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/App/WS.purs b/src/App/WS.purs
index 696c625..f6ca879 100644
--- 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