summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorstuebinm2022-03-06 14:16:00 +0100
committerstuebinm2022-03-19 19:57:18 +0100
commitab67f068967f7e460f4350384cbe8e47325c0598 (patch)
tree1dc7c5c9507f610ca1ae835cf24773858e66637f
parent7403b2702c062874970294d2019c11d2eafb4dda (diff)
server: don't hardcode the websocket domain/protocol
-rw-r--r--server/HtmlOrphans.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/server/HtmlOrphans.hs b/server/HtmlOrphans.hs
index b90ea6d..ee30773 100644
--- a/server/HtmlOrphans.hs
+++ b/server/HtmlOrphans.hs
@@ -75,7 +75,8 @@ instance ToHtml JobStatus where
p_ "you should probably ping an admin about this or sth"
where
autoReloadScript = script_
- "let ws = new WebSocket('ws://localhost:8080' + window.location.pathname + 'realtime');\n\
+ "let proto = window.location.protocol === 'https://' ? 'wss' : 'ws://';\
+ \let ws = new WebSocket(proto + window.location.host + window.location.pathname + 'realtime');\n\
\ws.onmessage = (event) => {\n\
\ let resp = JSON.parse(event.data);\n\
\ if (resp == 'RelintPending') {\n\