sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:54:52 +09:00
Code Issues Activity

C2S: Fix bug: undoC: When deleting TicketResolve, ticketStatus wasn't updated

Browse source
This commit is contained in:
fr33domlover 2020-08-06 07:14:06 +00:00
parent 9f34106a87
commit be3cf50283
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Vervis/API.hs
View file

@ -2133,7 +2133,10 @@ undoC (Entity _pidUser personUser) sharerUser summary audience undo@(Undo uObjec
tr <- getJust trid tr <- getJust trid
delete trlid delete trlid
delete trid 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 deleteResolve (Right ractid) = do
Entity trrid trr <- MaybeT $ lift $ getBy $ UniqueTicketResolveRemoteActivity ractid Entity trrid trr <- MaybeT $ lift $ getBy $ UniqueTicketResolveRemoteActivity ractid
lift $ lift $ do lift $ lift $ do
@ -2141,7 +2144,10 @@ undoC (Entity _pidUser personUser) sharerUser summary audience undo@(Undo uObjec
tr <- getJust trid tr <- getJust trid
delete trrid delete trrid
delete trid delete trid
return $ Just $ ticketResolveTicket tr let ltid = ticketResolveTicket tr
tid <- localTicketTicket <$> getJust ltid
update tid [TicketStatus =. TSTodo]
return $ Just ltid
pushCommitsC pushCommitsC
:: (Entity Person, Sharer) :: (Entity Person, Sharer)