Only display perturbations headers if there are some
This commit is contained in:
parent
ab4073f31f
commit
696a2a1abc
1 changed files with 2 additions and 1 deletions
3
sncf.ss
3
sncf.ss
|
@ -80,7 +80,8 @@
|
||||||
(display (table-footer tab)))
|
(display (table-footer tab)))
|
||||||
|
|
||||||
(def (display-disruptions disruptions style: (style 'unicode))
|
(def (display-disruptions disruptions style: (style 'unicode))
|
||||||
(displayln "Perturbations :")
|
(unless (null? disruptions)
|
||||||
|
(displayln "Perturbations :"))
|
||||||
(for ((dis disruptions))
|
(for ((dis disruptions))
|
||||||
(if (eq? style 'markdown)
|
(if (eq? style 'markdown)
|
||||||
(display "* ")
|
(display "* ")
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue