Show the URL of the WS connection.

beta
Philippe Pittoli 2023-07-07 20:29:49 +02:00
parent 0fb4fcd608
commit caaefcca3e
1 changed files with 6 additions and 1 deletions

View File

@ -109,7 +109,12 @@ render { wsInfo }
] ]
else else
HH.p_ 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 handleAction :: forall m. MonadAff m => Action -> H.HalogenM State Action () Output m Unit