Browse Source

fix main

master
Epi Morphism 2 months ago
parent
commit
ec8b38ac55
2 changed files with 5 additions and 4 deletions
  1. +3
    -2
      ircd.rkt
  2. +2
    -2
      main.rkt

+ 3
- 2
ircd.rkt View File

@@ -8,9 +8,10 @@

;; global crap
;; needs to be cleaned out
(define movie-night-ws-url (make-parameter "wss://stream.ihatebeinga.live/channels/epi/ws"))
(define movie-night-ws-url-base (make-parameter "wss://stream.ihatebeinga.live"))

(define (make-ws-url [un : String]) (string-append "wss://stream.ihatebeinga.live/channels/" un "/ws"))
(define (make-ws-url [un : String])
(string-append (movie-night-ws-url-base) "/channels/" un "/ws"))

;; Main entry point
;; Returns the main server loop thread (for synchronizing) and


+ 2
- 2
main.rkt View File

@@ -10,8 +10,8 @@
#:once-each
[("-u" "--url")
url
"URL for the MoveNight chat server (default wss://stream.ihatebeinga.live/ws)"
(movie-night-ws-url url)]
"URL for the MoveNight chat server base (default wss://stream.ihatebeinga.live/). Individual endpoints will be e.g. wss://base/channels/CHAN/ws."
(movie-night-ws-url-base url)]
[("-p" "--port")
p
"Specify the port for the IRCd (default 6667)"


Loading…
Cancel
Save