From a9ad3f8a3fa55a51ad9d4ef95d10fa8cbb825a49 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Thu, 21 Mar 2024 03:34:38 +0100 Subject: [PATCH] Beta URLs. --- src/App/Container.purs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/App/Container.purs b/src/App/Container.purs index 5a37641..355b607 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -304,10 +304,10 @@ render state render_logs = Bulma.container [ HH.slot_ _log unit AppLog.component unit ] render_auth_WS :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad - render_auth_WS = HH.slot _ws_auth unit WS.component "ws://127.0.0.1:8080" AuthenticationDaemonEvent + render_auth_WS = HH.slot _ws_auth unit WS.component "wss://beta.netlib.re/ws/authd" AuthenticationDaemonEvent render_dnsmanager_WS :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad - render_dnsmanager_WS = HH.slot _ws_dns unit WS.component "ws://127.0.0.1:8081" DNSManagerDaemonEvent + render_dnsmanager_WS = HH.slot _ws_dns unit WS.component "wss://beta.netlib.re/ws/dnsmanagerd" DNSManagerDaemonEvent handleAction :: forall o monad. MonadAff monad => Action -> H.HalogenM State Action ChildSlots o monad Unit handleAction = case _ of