diff --git a/src/Vervis/API.hs b/src/Vervis/API.hs index aa552bb..d04c532 100644 --- a/src/Vervis/API.hs +++ b/src/Vervis/API.hs @@ -2133,7 +2133,10 @@ undoC (Entity _pidUser personUser) sharerUser summary audience undo@(Undo uObjec tr <- getJust trid delete trlid delete trid - return $ Just $ ticketResolveTicket tr + let ltid = ticketResolveTicket tr + tid <- localTicketTicket <$> getJust ltid + update tid [TicketStatus =. TSTodo] + return $ Just ltid deleteResolve (Right ractid) = do Entity trrid trr <- MaybeT $ lift $ getBy $ UniqueTicketResolveRemoteActivity ractid lift $ lift $ do @@ -2141,7 +2144,10 @@ undoC (Entity _pidUser personUser) sharerUser summary audience undo@(Undo uObjec tr <- getJust trid delete trrid delete trid - return $ Just $ ticketResolveTicket tr + let ltid = ticketResolveTicket tr + tid <- localTicketTicket <$> getJust ltid + update tid [TicketStatus =. TSTodo] + return $ Just ltid pushCommitsC :: (Entity Person, Sharer)