forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Fix missing logs of fixRunningDeliveries

Browse source
This commit is contained in:
fr33domlover 2019-10-18 23:51:55 +00:00
parent d5063eaef9
commit 9f063fb349
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Vervis/Federation.hs
View file

@ -350,13 +350,13 @@ fixRunningDeliveries = do
c' <- updateWhereCount [DeliveryRunning ==. True] [DeliveryRunning =. False] c' <- updateWhereCount [DeliveryRunning ==. True] [DeliveryRunning =. False]
unless (c' == 0) $ logWarn $ T.concat unless (c' == 0) $ logWarn $ T.concat
[ "fixRunningDeliveries fixed " [ "fixRunningDeliveries fixed "
, T.pack (show c) , T.pack (show c')
, " unlinked deliveries" , " unlinked deliveries"
] ]
c'' <- updateWhereCount [ForwardingRunning ==. True] [ForwardingRunning =. False] c'' <- updateWhereCount [ForwardingRunning ==. True] [ForwardingRunning =. False]
unless (c' == 0) $ logWarn $ T.concat unless (c'' == 0) $ logWarn $ T.concat
[ "fixRunningDeliveries fixed " [ "fixRunningDeliveries fixed "
, T.pack (show c) , T.pack (show c'')
, " forwarding deliveries" , " forwarding deliveries"
] ]