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" ]