Fix display issue when departures is an empty list
This commit is contained in:
parent
81139dc91a
commit
9108d2cb03
1 changed files with 2 additions and 2 deletions
|
@ -46,10 +46,10 @@
|
||||||
|
|
||||||
(def (display-all departures disruptions station-name (datetime #f) style: (style 'unicode))
|
(def (display-all departures disruptions station-name (datetime #f) style: (style 'unicode))
|
||||||
(let/cc return
|
(let/cc return
|
||||||
(unless departures
|
(when (or (not departures) (null? departures))
|
||||||
(displayln (format "Aucun départ prévu de ~a~a"
|
(displayln (format "Aucun départ prévu de ~a~a"
|
||||||
station-name
|
station-name
|
||||||
(if datetime (string-append " le " (date->string datetime "~d ~b ~Y")))))
|
(if datetime (string-append " le " (date->string datetime "~d ~b ~Y")) "")))
|
||||||
(return))
|
(return))
|
||||||
(display
|
(display
|
||||||
(if (eq? style 'markdown)
|
(if (eq? style 'markdown)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue