diff --git a/src/Vervis/Federation/Ticket.hs b/src/Vervis/Federation/Ticket.hs index ce87f51..2b147b8 100644 --- a/src/Vervis/Federation/Ticket.hs +++ b/src/Vervis/Federation/Ticket.hs @@ -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'"