sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:54:52 +09:00
Code Issues Activity

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

Browse source
This commit is contained in:
fr33domlover 2019-04-18 20:20:58 +00:00
parent 4386e0f8af
commit 47a9e0b5a0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Ticket.hs
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