From 47a9e0b5a0b9d544a497a1fb7d5cadc61ad7b5c2 Mon Sep 17 00:00:00 2001 From: fr33domlover 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