db-iris: also show reasons for cancelled trains

1 files changed, 4 insertions, 1 deletions

diff --git a/bin/db-iris b/bin/db-iris
index d0e2662..f6de1e2 100755
--- a/bin/db-iris
+++ b/bin/db-iris
@@ -148,7 +148,10 @@ sub display_result {
 
 		my $d = $line->[5];
 
-		if ( $edata{delay} and $d->delay and $d->delay_messages ) {
+		if (    $edata{delay}
+			and ( $d->delay or $d->is_cancelled )
+			and $d->delay_messages )
+		{
 			printf( '  %s', ( $d->delay_messages )[-1]->[1] );
 		}
 		if ( $edata{qos} and $d->qos_messages ) {