From c03dacdb110d5cdc29d00a5b5d9b74c8e2751f9e Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 8 Feb 2020 15:42:55 +0000
Subject: [PATCH] In getTicketR, if author is local, make sure a
 TicketUnderProject exists

---
 src/Vervis/Handler/Ticket.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Vervis/Handler/Ticket.hs b/src/Vervis/Handler/Ticket.hs
index d3f26f0..5fca42c 100644
--- a/src/Vervis/Handler/Ticket.hs
+++ b/src/Vervis/Handler/Ticket.hs
@@ -270,6 +270,7 @@ getTicketR shar proj ltkhid = do
                 requireEitherAlt
                     (do mtal <- getValBy $ UniqueTicketAuthorLocal ltid
                         for mtal $ \ tal -> do
+                            _ <- getBy404 $ UniqueTicketUnderProjectProject tplid
                             p <- getJust $ ticketAuthorLocalAuthor tal
                             getJust $ personIdent p
                     )