1 files changed, 12 insertions(+), 3 deletions(-)

M client.rkt

@@ 26,6 26,7 @@
     [type : Symbol])]
   [update-host (-> requester String requester)]
   [update-port (-> requester Integer requester)]
+  [update-ssl  (-> requester Boolean requester)]
   [json-requester requester]
   [#:struct json-response
    ([status : String]


@@ 299,9 300,17 @@
   (define point (gen))
 
   (define bulletin
-    (update-port (update-host json-requester
-                              (readline "Bulletin host: "))
-                 1984))
+    (update-ssl
+     (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)]))))
 
   ; check if we're allowed to register
   (let-values ([(answer why) (can-we-register? bulletin)])