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]
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'"