forge/Vervis
1
0
Fork 0
Code Pull requests 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] :: AP.Ticket -> Text -> ShrIdent -> PrjIdent -> ExceptT Text Handler [Int]
checkOffer ticket hProject shrProject prjProject = do checkOffer ticket hProject shrProject prjProject = do
verifyNothingE (AP.ticketLocal ticket) "Ticket with 'id'" verifyNothingE (AP.ticketLocal ticket) "Ticket with 'id'"
_published <- verifyNothingE (AP.ticketPublished ticket) "Ticket with 'published'"
fromMaybeE (AP.ticketPublished ticket) "Ticket without 'published'"
verifyNothingE (AP.ticketUpdated ticket) "Ticket with 'updated'" verifyNothingE (AP.ticketUpdated ticket) "Ticket with 'updated'"
verifyNothingE (AP.ticketName ticket) "Ticket with 'name'" verifyNothingE (AP.ticketName ticket) "Ticket with 'name'"
verifyNothingE (AP.ticketAssignedTo ticket) "Ticket with 'assignedTo'" verifyNothingE (AP.ticketAssignedTo ticket) "Ticket with 'assignedTo'"