diff options
| -rwxr-xr-x | tools/obu-guess-trip | 2 | ||||
| -rwxr-xr-x | tools/obu-ping | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tools/obu-guess-trip b/tools/obu-guess-trip index 478ba2b..305ec8d 100755 --- a/tools/obu-guess-trip +++ b/tools/obu-guess-trip @@ -64,7 +64,7 @@ Arguments: (define (fetch-stations url) (define day (date->string (current-date) "~1")) (define tls - (equal? (uri-ref url 'scheme) 'https)) + (equal? (uri-ref url 'scheme) "https")) (parameterize ; replace all json keys with symbols; everything else is confusing ([json-object-handler 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 |