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)))
|
||||
|
||||
(def (display-disruptions disruptions style: (style 'unicode))
|
||||
(displayln "Perturbations :")
|
||||
(unless (null? disruptions)
|
||||
(displayln "Perturbations :"))
|
||||
(for ((dis disruptions))
|
||||
(if (eq? style 'markdown)
|
||||
(display "* ")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue