Major breaking change in Artanis around rc1.2.0 identified and solved for now

master^2
Brady McDonough 10 months ago
parent fb923455c2
commit baf4eb1112

@ -8,8 +8,6 @@
#:use-module (yacswa data) #:use-module (yacswa data)
#:export (std-display)) #:export (std-display))
(use-modules (system repl server))
;;TODO: Better verify functions ;;TODO: Better verify functions
;; : figure out the #:mtime directive for (response-emit) ;; : figure out the #:mtime directive for (response-emit)
;; : Change the API around to separate expiry tagging ;; : Change the API around to separate expiry tagging
@ -45,16 +43,11 @@
(lambda (obj) (lambda (obj)
(display obj stdout)))) (display obj stdout))))
(display "Calling init-server...\n")
(std-display "Spawning repl...")
(define repl-sock (make-tcp-server-socket))
(std-display "done.\n")
(std-display "Calling init-server...\n")
(init-server #:statics '(png jpg jpeg ico html js css) (init-server #:statics '(png jpg jpeg ico html js css)
#:cache-statics? #t #:exclude '()) #:cache-statics? #t #:exclude '())
(std-display "Artanis initialized!\n") (display "Artanis initialized!\n")
(std-display "Setting routes...") (display "Setting routes...")
;; Routes ;; Routes
(get "/json/pc/:pc" (get "/json/pc/:pc"

@ -6,8 +6,10 @@
#:use-module (yacswa routes)) #:use-module (yacswa routes))
;;(define repl-sock (make-unix-domain-server-socket #:path "./bc")) ;;(display "Spawning REPL...")
;;(define repl-sock (make-tcp-server-socket))
;;(spawn-server repl-sock) ;;(spawn-server repl-sock)
;;(display "done.\n")
;; No SSL. Sad. ;; No SSL. Sad.
(std-display "Bringing server up...\n") (std-display "Bringing server up...\n")

Loading…
Cancel
Save