Skip to content

Commit

Permalink
galley: Remove unused IntraComponent Gundeck (#4381)
Browse files Browse the repository at this point in the history
  • Loading branch information
fisx authored Dec 18, 2024
1 parent a9e53f4 commit 8bf04be
Showing 1 changed file with 1 addition and 10 deletions.
11 changes: 1 addition & 10 deletions services/galley/src/Galley/Intra/Util.hs
Original file line number Diff line number Diff line change
Expand Up @@ -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 =
Expand All @@ -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 ->
Expand Down

0 comments on commit 8bf04be

Please sign in to comment.