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