aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xtools/obu-guess-trip2
-rwxr-xr-xtools/obu-ping4
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