diff --git a/backend/yacswa/routes.scm b/backend/yacswa/routes.scm index 0dc89a0..7ca40d7 100644 --- a/backend/yacswa/routes.scm +++ b/backend/yacswa/routes.scm @@ -8,8 +8,6 @@ #:use-module (yacswa data) #:export (std-display)) -(use-modules (system repl server)) - ;;TODO: Better verify functions ;; : figure out the #:mtime directive for (response-emit) ;; : Change the API around to separate expiry tagging @@ -45,16 +43,11 @@ (lambda (obj) (display obj stdout)))) - -(std-display "Spawning repl...") -(define repl-sock (make-tcp-server-socket)) -(std-display "done.\n") - -(std-display "Calling init-server...\n") +(display "Calling init-server...\n") (init-server #:statics '(png jpg jpeg ico html js css) #:cache-statics? #t #:exclude '()) -(std-display "Artanis initialized!\n") -(std-display "Setting routes...") +(display "Artanis initialized!\n") +(display "Setting routes...") ;; Routes (get "/json/pc/:pc" diff --git a/backend/yacswa/yacswa.scm b/backend/yacswa/yacswa.scm index 8c95b3c..15638dd 100644 --- a/backend/yacswa/yacswa.scm +++ b/backend/yacswa/yacswa.scm @@ -6,8 +6,10 @@ #: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) +;;(display "done.\n") ;; No SSL. Sad. (std-display "Bringing server up...\n")