Skip to content

Commit

Permalink
weed.
Browse files Browse the repository at this point in the history
  • Loading branch information
fisx committed Dec 18, 2024
1 parent a9e53f4 commit 15d9e54
Showing 1 changed file with 1 addition and 9 deletions.
10 changes: 1 addition & 9 deletions services/galley/src/Galley/Intra/Util.hs
Original file line number Diff line number Diff line change
Expand Up @@ -38,13 +38,12 @@ 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 +52,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 15d9e54

Please sign in to comment.