dimitri/sncf-bot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle missing disruption messages

Browse source
This commit is contained in:
Dimitri Lozeve 2022-09-10 21:34:36 +02:00
parent 9c46c0c552
commit f2defe4ad7
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
sncf.ss
View file

@ -122,10 +122,13 @@
(unless (null? disruptions) (unless (null? disruptions)
(displayln "Perturbations :")) (displayln "Perturbations :"))
(for ((dis disruptions)) (for ((dis disruptions))
(if (eq? style 'markdown) (let ((messages (hash-ref dis 'messages '())))
(display "* ") (if (eq? style 'markdown)
(display "• ")) (display "* ")
(displayln (hash-ref (car (hash-ref dis 'messages)) 'text)))) (display "• "))
(if (null? messages)
(displayln "[Pas de message]")
(displayln (hash-ref (car messages) 'text))))))
(def (post-to-mattermost url text channel: (channel #f)) (def (post-to-mattermost url text channel: (channel #f))
(def data (list->hash-table `((text . ,text)))) (def data (list->hash-table `((text . ,text))))