Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Beta is fine.

Browse source
This commit is contained in:
Philippe Pittoli 2024-11-17 05:06:08 +01:00
parent a8d02ac392
commit 773ec032eb
2 changed files with 4 additions and 2 deletions

4
src/App/Container.purs
View file

@ -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

2
user.mk Normal file
View file

@ -0,0 +1,2 @@
provide-beta:
make serve HTTPD_PORT=35000 HTTPD_ADDR=192.168.122.181