From 0031801a743d70c8391caa862ad0f4da9a4190cc Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Thu, 7 Nov 2019 10:45:44 +0000
Subject: [PATCH] Fix SQL error when selecting ticket summaries
---
src/Vervis/Ticket.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs
index 204ab2c..e04011c 100644
--- a/src/Vervis/Ticket.hs
+++ b/src/Vervis/Ticket.hs
@@ -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