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.
This commit is contained in:
shum
2026-06-03 18:26:25 +00:00
parent 74c94a8078
commit 75671201d3
2 changed files with 2 additions and 0 deletions
+1
View File
@@ -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|
+1
View File
@@ -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|