diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs index 0b675b6..bb783dd 100644 --- a/src/Vervis/Ticket.hs +++ b/src/Vervis/Ticket.hs @@ -73,7 +73,8 @@ getTicketSummaries mfilt morder offlim jid = do on $ t ^. TicketId ==. lt ^. LocalTicketTicket where_ $ tpl ^. TicketProjectLocalProject ==. val jid groupBy - ( t ^. TicketId, s ?. SharerId + ( t ^. TicketId, lt ^. LocalTicketId + , s ?. SharerId , ra ?. RemoteActorId, ro ?. RemoteObjectId, i ?. InstanceId ) for_ mfilt $ \ filt -> where_ $ filt t