1 files changed, 1 insertions(+), 7 deletions(-)

M 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)])