From 9f063fb3499bb1a9ffd7a1461d30409a995992a3 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
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"
]