From ea5d27b0797d92cfa82fc15db9e56f5222cc920d Mon Sep 17 00:00:00 2001
From: Alexander Biehl <alexbiehl@gmail.com>
Date: Tue, 25 Jul 2023 11:57:43 +0200
Subject: [PATCH] Delay retry on a non-acceptable status code

---
 src/TestContainers/Docker.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/TestContainers/Docker.hs b/src/TestContainers/Docker.hs
index cd60c8b..353d111 100644
--- 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