Handle API error more gracefully

This commit is contained in:
Dimitri Lozeve 2022-09-20 21:40:03 +02:00
parent e223a736e1
commit fb6cc611c7
4 changed files with 44 additions and 26 deletions

View file

@ -20,6 +20,10 @@
(if station
(get-station-id sncf-key station)
(values "Vernon - Giverny (Vernon)" "stop_area:SNCF:87415604")))
(unless station-name
(set! station-name "Vernon - Giverny"))
(unless station-id
(set! station-id "stop_area:SNCF:87415604"))
(define-values (departures disruptions) (get-departures sncf-key station-id datetime))
(display-all departures disruptions station-name datetime)
(when mattermost-url