From 9a675a2b84bab2944d5e0409786ff3244a9cfe42 Mon Sep 17 00:00:00 2001
From: David Florness <david@florness.com>
Date: Mon, 9 Mar 2020 22:56:03 -0600
Subject: [PATCH] Use SSL by default

---
 client.rkt | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/client.rkt b/client.rkt
index 5433158..247cd58 100644
--- a/client.rkt
+++ b/client.rkt
@@ -304,13 +304,7 @@
      (update-port (update-host json-requester
                                (readline "Bulletin host: "))
                   1984)
-     (let loop ()
-       (case (readline "Enable encryption via SSL? [Y/n] ")
-         [("" "y" "Y") #t]
-         [("n" "N") #f]
-         [else
-          (displayln "Please answer with a `y' or `n'.")
-          (loop)]))))
+     #t))
 
   ; check if we're allowed to register
   (let-values ([(answer why) (can-we-register? bulletin)])
-- 
2.38.4