From 9f063fb3499bb1a9ffd7a1461d30409a995992a3 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Fri, 18 Oct 2019 23:51:55 +0000 Subject: [PATCH] Fix missing logs of fixRunningDeliveries --- src/Vervis/Federation.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Vervis/Federation.hs b/src/Vervis/Federation.hs index 95193ed..6e8e8c3 100644 --- a/src/Vervis/Federation.hs +++ b/src/Vervis/Federation.hs @@ -350,13 +350,13 @@ fixRunningDeliveries = do c' <- updateWhereCount [DeliveryRunning ==. True] [DeliveryRunning =. False] unless (c' == 0) $ logWarn $ T.concat [ "fixRunningDeliveries fixed " - , T.pack (show c) + , T.pack (show c') , " unlinked deliveries" ] c'' <- updateWhereCount [ForwardingRunning ==. True] [ForwardingRunning =. False] - unless (c' == 0) $ logWarn $ T.concat + unless (c'' == 0) $ logWarn $ T.concat [ "fixRunningDeliveries fixed " - , T.pack (show c) + , T.pack (show c'') , " forwarding deliveries" ]