diff options
Diffstat (limited to 'tools/obu-ping')
| -rwxr-xr-x | tools/obu-ping | 4 |
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 |