From 7b1dd2b0de2d16e9cc288839dbd1eb6dec679dcf Mon Sep 17 00:00:00 2001
From: Matthias Fischmann <mf@zerobuzz.net>
Date: Wed, 7 Jan 2026 12:03:55 +0100
Subject: [PATCH] WIP

---
 libs/wire-api/src/Wire/API/Routes/Public/Brig.hs | 10 ++++++++++
 libs/wire-subsystems/src/Wire/AppSubsystem.hs    |  1 +
 services/brig/src/Brig/API/Public.hs             |  4 ++++
 3 files changed, 15 insertions(+)

diff --git a/libs/wire-api/src/Wire/API/Routes/Public/Brig.hs b/libs/wire-api/src/Wire/API/Routes/Public/Brig.hs
index 313a12fe37..97561d3fce 100644
--- a/libs/wire-api/src/Wire/API/Routes/Public/Brig.hs
+++ b/libs/wire-api/src/Wire/API/Routes/Public/Brig.hs
@@ -2125,6 +2125,16 @@ type AppsAPI =
                :> Capture "uid" UserId
                :> Get '[JSON] GetApp
            )
+    :<|> Named
+           "delete-app"
+           ( Summary "Delete app"
+               :> ZLocalUser
+               :> "teams"
+               :> Capture "tid" TeamId
+               :> "apps"
+               :> Capture "uid" UserId
+               :> MultiVerb1 'DELETE '[JSON] (RespondEmpty 200 "Invitation deleted")
+           )
     :<|> Named
            "refresh-app-cookie"
            ( Summary "Get a new app authentication token"
diff --git a/libs/wire-subsystems/src/Wire/AppSubsystem.hs b/libs/wire-subsystems/src/Wire/AppSubsystem.hs
index de5ae18a24..c80d2d9a5a 100644
--- a/libs/wire-subsystems/src/Wire/AppSubsystem.hs
+++ b/libs/wire-subsystems/src/Wire/AppSubsystem.hs
@@ -52,6 +52,7 @@ appSubsystemErrorToHttpError =
 data AppSubsystem m a where
   CreateApp :: Local UserId -> TeamId -> Apps.NewApp -> AppSubsystem m Apps.CreatedApp
   GetApp :: Local UserId -> TeamId -> UserId -> AppSubsystem m Apps.GetApp
+  DeleteApp :: Local UserId -> TeamId -> UserId -> AppSubsystem m ()
   RefreshAppCookie ::
     Local UserId ->
     TeamId ->
diff --git a/services/brig/src/Brig/API/Public.hs b/services/brig/src/Brig/API/Public.hs
index 4fcdefe883..145605570a 100644
--- a/services/brig/src/Brig/API/Public.hs
+++ b/services/brig/src/Brig/API/Public.hs
@@ -632,6 +632,7 @@ servantSitemap =
     appsAPI =
       Named @"create-app" createApp
         :<|> Named @"get-app" getApp
+        :<|> Named @"delete-app" deleteApp
         :<|> Named @"refresh-app-cookie" refreshAppCookie
 
 ---------------------------------------------------------------------------
@@ -1755,6 +1756,9 @@ createApp lusr tid new = lift . liftSem $ AppSubsystem.createApp lusr tid new
 getApp :: (_) => Local UserId -> TeamId -> UserId -> Handler r GetApp
 getApp lusr tid uid = lift . liftSem $ AppSubsystem.getApp lusr tid uid
 
+deleteApp :: (_) => Local UserId -> TeamId -> UserId -> Handler r GetApp
+deleteApp lusr tid uid = lift . liftSem $ AppSubsystem.deleteApp lusr tid uid
+
 refreshAppCookie :: (_) => Local UserId -> TeamId -> UserId -> Handler r RefreshAppCookieResponse
 refreshAppCookie lusr tid appId = do
   mc <- lift . liftSem $ AppSubsystem.refreshAppCookie lusr tid appId