Implement getUserGroupsWithMembers

Author: eyeinsky

libs/wire-subsystems/src/Wire/UserGroupStore/Postgres.hs

@@ -221,15 +221,55 @@ getUserGroup team id_ includeChannels = do
             where ug.id = ($1 :: uuid) and ug.team_id = ($2 :: uuid)
           |]
 
-
 getUserGroupsWithMembers ::
   forall r.
-  ( UserGroupStorePostgresEffectConstraints r,
-    Member (Input (Local ())) r
+  ( UserGroupStorePostgresEffectConstraints r
   ) =>
   UserGroupPageRequest ->
   Sem r UserGroupPageWithMembers
-getUserGroupsWithMembers _req = pure $ UserGroupPage [] 0 -- this is the stub
+getUserGroupsWithMembers req = runTransaction TxSessions.ReadCommitted TxSessions.Read $ do
+  groups :: [UserGroup] <- Tx.statement () $ refineResult (mapM toUserGroup) $ buildStatement query rows
+  count <- getCountSession req
+  return $ UserGroupPage groups count
+  where
+    rows :: HD.Result [(UUID, Text, Int32, UTCTime, Vector UUID, Int32)]
+    rows = HD.rowList $
+      (,,,,,)
+        <$> HD.column (HD.nonNullable HD.uuid)
+        <*> HD.column (HD.nonNullable HD.text)
+        <*> HD.column (HD.nonNullable HD.int4)
+        <*> HD.column (HD.nonNullable HD.timestamptz)
+        <*> decodeUuidVector
+        <*> HD.column (HD.nonNullable HD.int4)
+
+    query :: QueryFragment
+    query = mconcat $ map literal [
+      "select",
+      T.intercalate ", " fields,
+      "from user_group g",
+      "left join user_group_member gm on g.id = gm.user_group_id"
+      ] <> [where_ (groupMatchIdName req <> groupPaginationWhereClause req)] <> map literal [
+      "group by g.team_id, g.id"
+      ] <> groupPaginationOrderBy req
+
+    fields = [
+        "g.id :: uuid",
+        "g.name :: text",
+        "managed_by :: int",
+        "created_at :: timestamptz",
+        "coalesce(array_agg(gm.user_id), array[]::uuid[]) :: uuid[]",
+        "count(*) :: int"
+      ]
+
+    toUserGroup :: (UUID, Text , Int32, UTCTime, Vector UUID, Int32) -> Either Text UserGroup
+    toUserGroup (Id -> id_, name', managedBy', createdAt', members', Just . fromIntegral -> membersCount)  = do
+      name <- userGroupNameFromText name'
+      managedBy <- parseManagedBy managedBy'
+      let createdAt = toUTCTimeMillis createdAt'
+          channels = Nothing
+          channelsCount = Nothing
+          members = Identity (fmap Id members' :: Vector UserId)
+      pure $ UserGroup_ {..}
 
 groupMatchIdName :: UserGroupPageRequest -> [QueryFragment]
 groupMatchIdName req =