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