From 2376cbd479860879533f21c351a22d5e37042cc7 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 29 Jun 2019 23:32:34 +0000
Subject: [PATCH] When receiving Offer in inbox, expect ticket's 'published'
NOT to be set
---
src/Vervis/Federation/Ticket.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
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'"