sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2025-01-29 08:37:50 +09:00
Code Issues Activity

When receiving Offer in inbox, expect ticket's 'published' NOT to be set

Browse source
This commit is contained in:
fr33domlover 2019-06-29 23:32:34 +00:00
parent d73c3928a0
commit 2376cbd479
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Vervis/Federation/Ticket.hs
View file

@ -75,8 +75,7 @@ checkOffer
:: AP.Ticket -> Text -> ShrIdent -> PrjIdent -> ExceptT Text Handler [Int]
checkOffer ticket hProject shrProject prjProject = do
verifyNothingE (AP.ticketLocal ticket) "Ticket with 'id'"
_published <-
fromMaybeE (AP.ticketPublished ticket) "Ticket without 'published'"
verifyNothingE (AP.ticketPublished ticket) "Ticket with 'published'"
verifyNothingE (AP.ticketUpdated ticket) "Ticket with 'updated'"
verifyNothingE (AP.ticketName ticket) "Ticket with 'name'"
verifyNothingE (AP.ticketAssignedTo ticket) "Ticket with 'assignedTo'"