forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Fix SQL query that selects ticket summary data, was making getTicketsR fail

Browse source
This commit is contained in:
fr33domlover 2019-06-27 11:47:23 +00:00
parent 9f3e45c113
commit 63689aef1a
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis/Ticket.hs
View file

@ -61,7 +61,10 @@ getTicketSummaries mfilt morder jid = fmap (map toSummary) $ select $ from $
on $ tal ?. TicketAuthorLocalAuthor ==. p ?. PersonId on $ tal ?. TicketAuthorLocalAuthor ==. p ?. PersonId
on $ just (t ^. TicketId) ==. tal ?. TicketAuthorLocalTicket on $ just (t ^. TicketId) ==. tal ?. TicketAuthorLocalTicket
where_ $ t ^. TicketProject ==. val jid where_ $ t ^. TicketProject ==. val jid
groupBy $ t ^. TicketId groupBy
( t ^. TicketId, s ?. SharerId
, ra ?. RemoteActorId, i ?. InstanceId
)
for_ mfilt $ \ filt -> where_ $ filt t for_ mfilt $ \ filt -> where_ $ filt t
for_ morder $ \ order -> orderBy $ order t for_ morder $ \ order -> orderBy $ order t
return return