1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 10:04:51 +09:00

Group by sharer ID too, hopefully this time it's enough

This commit is contained in:
fr33domlover 2019-04-18 20:20:58 +00:00
parent 4386e0f8af
commit 47a9e0b5a0

View file

@ -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