From 773ec032eb6234e599fea4432b9adf13894a5e6d Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
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 60911fa..a8aa16e 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -333,10 +333,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