From 8bf04be7c40aa6bb753cce15ba0b1c33fc00a229 Mon Sep 17 00:00:00 2001
From: Matthias Fischmann <mf@zerobuzz.net>
Date: Wed, 18 Dec 2024 16:03:03 +0100
Subject: [PATCH] galley: Remove unused IntraComponent Gundeck (#4381)

---
 services/galley/src/Galley/Intra/Util.hs | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

diff --git a/services/galley/src/Galley/Intra/Util.hs b/services/galley/src/Galley/Intra/Util.hs
index fa24f814ae5..18070288aca 100644
--- a/services/galley/src/Galley/Intra/Util.hs
+++ b/services/galley/src/Galley/Intra/Util.hs
@@ -36,15 +36,13 @@ import Galley.Env hiding (brig)
 import Galley.Monad
 import Galley.Options
 import Imports hiding (log)
-import Network.HTTP.Types
 
-data IntraComponent = Brig | Spar | Gundeck
+data IntraComponent = Brig | Spar
   deriving (Show)
 
 componentName :: IntraComponent -> String
 componentName Brig = "brig"
 componentName Spar = "spar"
-componentName Gundeck = "gundeck"
 
 componentRequest :: IntraComponent -> Opts -> Request -> Request
 componentRequest Brig o =
@@ -53,17 +51,10 @@ componentRequest Brig o =
 componentRequest Spar o =
   B.host (encodeUtf8 o._spar.host)
     . B.port (portNumber $ fromIntegral . port $ o._spar)
-componentRequest Gundeck o =
-  B.host (encodeUtf8 o._gundeck.host)
-    . B.port (portNumber $ fromIntegral . port $ o._gundeck)
-    . method POST
-    . path "/i/push/v2"
-    . expect2xx
 
 componentRetryPolicy :: IntraComponent -> RetryPolicy
 componentRetryPolicy Brig = x1
 componentRetryPolicy Spar = x1
-componentRetryPolicy Gundeck = limitRetries 0
 
 call ::
   IntraComponent ->