From a0d471bbea6ac9a60d7679f9e3deaf4a4879cdb3 Mon Sep 17 00:00:00 2001 From: Dimitri Lozeve Date: Thu, 22 Sep 2022 13:49:52 +0200 Subject: [PATCH] Fix issue when base_departure_date_time is missing --- sncf/api.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sncf/api.ss b/sncf/api.ss index d654501..4fcf848 100644 --- a/sncf/api.ss +++ b/sncf/api.ss @@ -46,10 +46,10 @@ (for/collect ((dep departures-json)) (let* ((info (hash-ref dep (string->symbol "display_informations"))) (stop-dt (hash-ref dep (string->symbol "stop_date_time"))) - (base-dep-dt-str (hash-ref stop-dt (string->symbol "base_departure_date_time"))) - (base-dep-dt (string->date base-dep-dt-str "~Y~m~dT~H~M~S")) (dep-dt-str (hash-ref stop-dt (string->symbol "departure_date_time"))) - (dep-dt (string->date dep-dt-str "~Y~m~dT~H~M~S"))) + (dep-dt (string->date dep-dt-str "~Y~m~dT~H~M~S")) + (base-dep-dt-str (hash-ref stop-dt (string->symbol "base_departure_date_time") dep-dt-str)) + (base-dep-dt (string->date base-dep-dt-str "~Y~m~dT~H~M~S"))) (departure (hash-ref info 'network) (hash-ref info 'direction) base-dep-dt