onboard-tools: fix https

1 files changed, 2 insertions, 2 deletions

diff --git a/tools/obu-ping b/tools/obu-ping
index ee75402..2897e23 100755
--- a/tools/obu-ping
+++ b/tools/obu-ping
@@ -95,7 +95,7 @@ Arguments:
 
 (define (fetch-token url trip)
   (define tls
-    (equal? (uri-ref url 'scheme) 'https))
+    (equal? (uri-ref url 'scheme) "https"))
   (display (format "fetching new token for trip ~a…\n" trip))
   (parameterize
       ; replace all json keys with symbols; everything else is confusing
@@ -111,7 +111,7 @@ Arguments:
 
 (define (ping url token pos)
   (define tls
-    (equal? (uri-ref url 'scheme) 'https))
+    (equal? (uri-ref url 'scheme) "https"))
   (parameterize ([json-object-handler json-symbol-key])
     (parse-json-string
      (values-ref (http-post