From 84d932a3adc9e876b751a0e85cf1fee61c811011 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sun, 17 Nov 2024 05:06:08 +0100 Subject: [PATCH] Beta is fine. --- src/App/Container.purs | 4 ++-- user.mk | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) create mode 100644 user.mk diff --git a/src/App/Container.purs b/src/App/Container.purs index 9350c22..b0b8637 100644 --- a/src/App/Container.purs +++ b/src/App/Container.purs @@ -311,10 +311,10 @@ render state then HH.div_ [] else Bulma.btn_ [C.is_large, C.is_danger] "You have been disconnected. Click here to reconnect." Reconnection render_auth_WS :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad - render_auth_WS = HH.slot _ws_auth unit WS.component (Tuple "ws://127.0.0.1:8080" "authd") AuthenticationDaemonEvent + render_auth_WS = HH.slot _ws_auth unit WS.component (Tuple "wss://beta.netlib.re/ws/authd" "authd") AuthenticationDaemonEvent render_dnsmanager_WS :: forall monad. MonadAff monad => H.ComponentHTML Action ChildSlots monad - render_dnsmanager_WS = HH.slot _ws_dns unit WS.component (Tuple "ws://127.0.0.1:8081" "dnsmanagerd") DNSManagerDaemonEvent + render_dnsmanager_WS = HH.slot _ws_dns unit WS.component (Tuple "wss://beta.netlib.re/ws/dnsmanagerd" "dnsmanagerd") DNSManagerDaemonEvent render_notifications = case state.notif of diff --git a/user.mk b/user.mk new file mode 100644 index 0000000..791963a --- /dev/null +++ b/user.mk @@ -0,0 +1,2 @@ +provide-beta: + make serve HTTPD_PORT=35000 HTTPD_ADDR=192.168.122.181