From 587ae5e8cc96025e7ffa87b1f2cdd9751bef70eb Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Tue, 27 Sep 2022 10:49:32 +0000
Subject: [PATCH] Fix query error in getTicketSummaries

---
 src/Vervis/Ticket.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Vervis/Ticket.hs b/src/Vervis/Ticket.hs
index 89a5dee..1e92bae 100644
--- a/src/Vervis/Ticket.hs
+++ b/src/Vervis/Ticket.hs
@@ -123,7 +123,7 @@ getTicketSummaries mfilt morder offlim deckID = do
 
             E.where_ $ td E.^. TicketDeckDeck E.==. E.val deckID
             E.groupBy
-                ( t E.^. TicketId
+                ( t E.^. TicketId, td E.^. TicketDeckId
                 , tal E.?. TicketAuthorLocalId, p E.?. PersonId, a E.?. ActorId
                 , ra E.?. RemoteActorId, ro E.?. RemoteObjectId, i E.?. InstanceId
                 )
@@ -197,7 +197,7 @@ getClothSummaries mfilt morder offlim loomID = do
 
             E.where_ $ tl E.^. TicketLoomLoom E.==. E.val loomID
             E.groupBy
-                ( t E.^. TicketId
+                ( t E.^. TicketId, tl E.^. TicketLoomId
                 , tal E.?. TicketAuthorLocalId, p E.?. PersonId, a E.?. ActorId
                 , ra E.?. RemoteActorId, ro E.?. RemoteObjectId, i E.?. InstanceId
                 )