From baf4eb111267d519a669b0763a4a8aec9a3e34b8 Mon Sep 17 00:00:00 2001
From: Brady McDonough <me@bradymcd.ca>
Date: Tue, 25 Feb 2025 01:56:35 +0000
Subject: [PATCH] Major breaking change in Artanis around rc1.2.0 identified
 and solved for now

---
 backend/yacswa/routes.scm | 13 +++----------
 backend/yacswa/yacswa.scm |  4 +++-
 2 files changed, 6 insertions(+), 11 deletions(-)

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")