From aba4286b56077e610c6c8a4f7d6b6652c52bc1b2 Mon Sep 17 00:00:00 2001
From: plugd <plugd@thelambdalab.xyz>
Date: Tue, 7 Sep 2021 14:17:31 +0200
Subject: [PATCH] Prevent server leaking error info.

---
 scratchy.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scratchy.scm b/scratchy.scm
index 12c7094..774b488 100644
--- a/scratchy.scm
+++ b/scratchy.scm
@@ -76,8 +76,8 @@
                           (serve-selector selector config)))
                       (print "... served selector '" selector "'. Closing connection."))
                   (o (exn)
-                     (print-error-message o out-port)
                      (print-error-message o)
+                     (print "Invalid selector.")
                      (print "Error while attempting to serve selector " selector "."))))
               (begin
                 (print "Connection from blacklisted IP. Closing.")
-- 
2.20.1