From 47a9e0b5a0b9d544a497a1fb7d5cadc61ad7b5c2 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Thu, 18 Apr 2019 20:20:58 +0000
Subject: [PATCH] Group by sharer ID too, hopefully this time it's enough
---
src/Vervis/Ticket.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs
index 2a43cc2..c9daaf5 100644
--- a/src/Vervis/Ticket.hs
+++ b/src/Vervis/Ticket.hs
@@ -64,7 +64,7 @@ getTicketSummaries mfilt morder jid = do
on $ p ^. PersonIdent ==. s ^. SharerId
on $ t ^. TicketCreator ==. p ^. PersonId
where_ $ t ^. TicketProject ==. val jid
- groupBy $ t ^. TicketId
+ groupBy (t ^. TicketId, s ^. SharerId)
for_ mfilt $ \ filt -> where_ $ filt t
for_ morder $ \ order -> orderBy $ order t
return