From f2defe4ad7a578d2f110ef751f21de0d6982be1c Mon Sep 17 00:00:00 2001 From: Dimitri Lozeve Date: Sat, 10 Sep 2022 21:34:36 +0200 Subject: [PATCH] Handle missing disruption messages --- sncf.ss | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/sncf.ss b/sncf.ss index 122e7ad..fe6a095 100755 --- a/sncf.ss +++ b/sncf.ss @@ -122,10 +122,13 @@ (unless (null? disruptions) (displayln "Perturbations :")) (for ((dis disruptions)) - (if (eq? style 'markdown) - (display "* ") - (display "• ")) - (displayln (hash-ref (car (hash-ref dis 'messages)) 'text)))) + (let ((messages (hash-ref dis 'messages '()))) + (if (eq? style 'markdown) + (display "* ") + (display "• ")) + (if (null? messages) + (displayln "[Pas de message]") + (displayln (hash-ref (car messages) 'text)))))) (def (post-to-mattermost url text channel: (channel #f)) (def data (list->hash-table `((text . ,text))))