From 75671201d36731f82443552479433aab4ee8d25f Mon Sep 17 00:00:00 2001 From: shum Date: Wed, 3 Jun 2026 18:26:25 +0000 Subject: [PATCH] chat: cross-reference groupInfoQueryFields and getGroupAndMember_ Two helpers redundantly maintain the same g.* column list. A future g.* addition must be applied to both sites; the cross-reference comments flag this for maintainers. A proper refactor (reusing groupInfoQueryFields from Connections.hs's inline SELECT) is out of scope for this branch. --- src/Simplex/Chat/Store/Connections.hs | 1 + src/Simplex/Chat/Store/Shared.hs | 1 + 2 files changed, 2 insertions(+) diff --git a/src/Simplex/Chat/Store/Connections.hs b/src/Simplex/Chat/Store/Connections.hs index 16bb459183..edcf129763 100644 --- a/src/Simplex/Chat/Store/Connections.hs +++ b/src/Simplex/Chat/Store/Connections.hs @@ -134,6 +134,7 @@ getConnectionEntity db vr user@User {userId, userContactId} agentConnId = do gm <- ExceptT $ firstRow (toGroupAndMember c) (SEInternalError "referenced group member not found") $ + -- Mirrors Store/Shared.hs groupInfoQueryFields — keep column lists in sync. DB.query db [sql| diff --git a/src/Simplex/Chat/Store/Shared.hs b/src/Simplex/Chat/Store/Shared.hs index 4f88663ffb..590623b6a8 100644 --- a/src/Simplex/Chat/Store/Shared.hs +++ b/src/Simplex/Chat/Store/Shared.hs @@ -782,6 +782,7 @@ toBusinessChatInfo _ = Nothing groupInfoQuery :: Query groupInfoQuery = groupInfoQueryFields <> " " <> groupInfoQueryFrom +-- Mirrored in Store/Connections.hs getGroupAndMember_ — keep column lists in sync. groupInfoQueryFields :: Query groupInfoQueryFields = [sql|