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

Fix SQL error when selecting ticket summaries

Browse source
This commit is contained in:
fr33domlover 2019-11-07 10:45:44 +00:00
parent 7a96d904f3
commit 0031801a74
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 = 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