From 5d1f570190b4b7d0c94913b5eb0a11a591de31b6 Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 20 May 2023 00:15:28 +0200
Subject: onboard-tools: fix https

---
 tools/obu-guess-trip | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tools/obu-guess-trip')

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
-- 
cgit v1.2.3