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|