@@ -665,8 +665,7 @@ getGroupChatForUser :: UserId -> GroupChatId -> StaticPQ GroupChat
665getGroupChatForUser uId gId = do
665getGroupChatForUser uId gId = do
666 chat <- runQueryParams getGroupChatForUserQ (show uId, gId) >>= firstRow
666 chat <- runQueryParams getGroupChatForUserQ (show uId, gId) >>= firstRow
667 case (chat) of
667 case (chat) of
668− (Just c@GroupChat{groupChatUsers = Jsonb perms}) ->
668+ (Just c) -> return c
669− return c{groupChatUsers = Jsonb . M.delete uId $ perms}
670 Nothing -> lift $ S.throwError S.err404
669 Nothing -> lift $ S.throwError S.err404
672-- MARK: Utils
671-- MARK: Utils