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