[WPB-23765] Refresh ES index after app update, emit event.

[fisx]

https://wearezeta.atlassian.net/browse/WPB-23765

updating apps did not refresh the user index and did not send the user-update event. this is now fixed.

Checklist

• Add a new entry in an appropriate subdirectory of changelog.d
• Read and follow the PR guidelines

[battermann]

Only 2 nit-picks

[battermann]

Is this deconstruction necessary? If we remove it we do not have to reconstruct it later in line 247, maybe?

[fisx]

do you mean 84cd1bc?

that doesn't work:

----- Apps.testPutApp FAIL (1.78 s; failed at 2026-05-19T07:02:30.674Z) -----
assertion failure:
Expected String but got Object:
{
    "accent_id": 0,
    "app": {
        "category": "other",
        "description": "default description"
    },
    "assets": [],
    "id": "9a4b14dd-d75b-4437-b0cc-85f931139f4c",
    "legalhold_status": "disabled",
    "name": "choppie",
    "picture": [],
    "qualified_id": {
        "domain": "example.com",
        "id": "9a4b14dd-d75b-4437-b0cc-85f931139f4c"
    },
    "searchable": true,
    "supported_protocols": [
        "mls"
    ],
    "team": "7542fed1-2d37-4bfe-b52f-ab22c154ef83",
    "type": "app"
}

call stack: 
1. assertFailure at test/Testlib/JSON.hs:345
     assertFailure msg'

2. assertFailureWithJSON at test/Testlib/JSON.hs:105
     v -> assertFailureWithJSON x ("String" `typeWasExpectedButGot` v)

3. asString at test/API/Brig.hs:1278
     appIdStr <- asString appId

4. putAppMetadata at test/Test/Apps.hs:245
     bindResponse (putAppMetadata tid owner app (Object appMetadata)) $ \resp -> do

but maybe you meant something else?

[battermann]

I mean something like this:

  let appMetadata =
        [aesonQQ|
        {
          "accent_id": 126,
          "assets": [
            {
              "key": "3-1-47de4580-ae51-4650-acbb-d10c028cb0ac",
          "description": "This is the best app ever."
        }|]

  withWebSockets [owner, regularMember, app] \[wsOwner, wsRegularMember, wsApp] -> do
    bindResponse (putAppMetadata tid owner appId appMetadata) $ \resp -> do
      resp.status `shouldMatchInt` 200

[fisx]

ah, that makes a lot more sense... :-)

yeah, that might have worked, but i don't want to make another PR to change this, is that ok?

[battermann]

all good, it's a nitty nitpick