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 ->