forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Fix bug in DB query in getTicketsR

Browse source
This commit is contained in:
fr33domlover 2020-02-08 08:55:28 +00:00
parent 6e2445a31f
commit 6fa0a9cb46
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Vervis/Ticket.hs
View file

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