From 6fa0a9cb468c08ee268dc9c2867b0ff24156080a Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 8 Feb 2020 08:55:28 +0000
Subject: [PATCH] Fix bug in DB query in getTicketsR

---
 src/Vervis/Ticket.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs
index 0b675b6..bb783dd 100644
--- a/src/Vervis/Ticket.hs
+++ b/src/Vervis/Ticket.hs
@@ -73,7 +73,8 @@ getTicketSummaries mfilt morder offlim jid = do
             on $ t ^. TicketId ==. lt ^. LocalTicketTicket
             where_ $ tpl ^. TicketProjectLocalProject ==. val jid
             groupBy
-                ( t ^. TicketId, s ?. SharerId
+                ( t ^. TicketId, lt ^. LocalTicketId
+                , s ?. SharerId
                 , ra ?. RemoteActorId, ro ?. RemoteObjectId, i ?. InstanceId
                 )
             for_ mfilt $ \ filt -> where_ $ filt t