From 1d5ef5e0950f7b90ef4aae7fad625aab369b3a48 Mon Sep 17 00:00:00 2001 From: Akshay Mankar Date: Wed, 13 Dec 2023 10:01:54 +0100 Subject: [PATCH] galley-integration: Give legalhold service longer to be connectable from galley Earlier we gave it up to 3.1 milliseconds, now its up to 5 seconds. --- services/galley/test/integration/API/Teams/LegalHold/Util.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/services/galley/test/integration/API/Teams/LegalHold/Util.hs b/services/galley/test/integration/API/Teams/LegalHold/Util.hs index e5e378844a..f4362f8150 100644 --- a/services/galley/test/integration/API/Teams/LegalHold/Util.hs +++ b/services/galley/test/integration/API/Teams/LegalHold/Util.hs @@ -18,7 +18,7 @@ import Control.Concurrent.Timeout hiding (threadDelay) import Control.Exception (asyncExceptionFromException) import Control.Lens hiding ((#)) import Control.Monad.Catch -import Control.Retry (RetryPolicy, RetryStatus, exponentialBackoff, limitRetries, retrying) +import Control.Retry import Data.Aeson qualified as Aeson import Data.Aeson.Types (FromJSON, withObject, (.:)) import Data.ByteString qualified as BS @@ -330,7 +330,7 @@ postSettings uid tid new = . json new where policy :: RetryPolicy - policy = exponentialBackoff 50 <> limitRetries 5 + policy = limitRetriesByCumulativeDelay 5_000_000 $ exponentialBackoff 50 only412 :: RetryStatus -> ResponseLBS -> TestM Bool only412 _ resp = pure $ statusCode resp == 412