diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs index 204ab2c..e04011c 100644 --- a/src/Vervis/Ticket.hs +++ b/src/Vervis/Ticket.hs @@ -64,7 +64,7 @@ getTicketSummaries mfilt morder jid = fmap (map toSummary) $ select $ from $ where_ $ t ^. TicketProject ==. val jid groupBy ( t ^. TicketId, s ?. SharerId - , ra ?. RemoteActorId, i ?. InstanceId + , ra ?. RemoteActorId, ro ?. RemoteObjectId, i ?. InstanceId ) for_ mfilt $ \ filt -> where_ $ filt t for_ morder $ \ order -> orderBy $ order t