From 63689aef1ac87e12107f4eb1d7705dc702e7c867 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Thu, 27 Jun 2019 11:47:23 +0000
Subject: [PATCH] Fix SQL query that selects ticket summary data, was making
 getTicketsR fail

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

diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs
index fdde7b1..8066d2b 100644
--- a/src/Vervis/Ticket.hs
+++ b/src/Vervis/Ticket.hs
@@ -61,7 +61,10 @@ getTicketSummaries mfilt morder jid = fmap (map toSummary) $ select $ from $
         on $ tal ?. TicketAuthorLocalAuthor ==. p ?. PersonId
         on $ just (t ^. TicketId) ==. tal ?. TicketAuthorLocalTicket
         where_ $ t  ^. TicketProject ==. val jid
-        groupBy $ t ^. TicketId
+        groupBy
+            ( t ^. TicketId, s ?. SharerId
+            , ra ?. RemoteActorId, i ?. InstanceId
+            )
         for_ mfilt $ \ filt -> where_ $ filt t
         for_ morder $ \ order -> orderBy $ order t
         return