From da01fcf451757608404d46bcabd1fd6b3ccb390a Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Thu, 6 Aug 2020 13:18:38 +0000
Subject: [PATCH] S2S: Fix bug: in *UndoF, when unresolving ticket,
 ticketStatus wasn't updated

---
 src/Vervis/Federation/Offer.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Vervis/Federation/Offer.hs b/src/Vervis/Federation/Offer.hs
index e9051c0..bdde95b 100644
--- a/src/Vervis/Federation/Offer.hs
+++ b/src/Vervis/Federation/Offer.hs
@@ -552,6 +552,8 @@ deleteResolve myWorkItem prepareAccept tr = do
         Just wiData -> do
             bitraverse delete delete trxid
             delete trid
+            tid <- localTicketTicket <$> getJust ltid
+            update tid [TicketStatus =. TSTodo]
             (colls, accept) <- prepareAccept wiData
             return ("Ticket unresolved", Just colls, Just accept)