Delay retry on a non-acceptable status code

testcontainers · Jul 25, 2023 · ea5d27b · ea5d27b
1 parent 9aefe04
commit ea5d27b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/TestContainers/Docker.hs b/src/TestContainers/Docker.hs
@@ -904,7 +904,8 @@ waitForHttp port path acceptableStatusCodes = WaitReady $ \container -> do
             withTrace
               configTracer
               (TraceHttpCall endpointHost endpointPort (Right code))
-            unless (code `elem` acceptableStatusCodes) $
+            unless (code `elem` acceptableStatusCodes) $ do
+              liftIO (threadDelay 500000)
               retry manager
           Left (exception :: HttpException) -> do
             withTrace