From deb4e8877c7ea23544cf29e4fd20832bfeeed645 Mon Sep 17 00:00:00 2001
From: sourabhxyz <swasti@sourabh.xyz>
Date: Sat, 23 Sep 2023 21:36:11 +0530
Subject: [PATCH] Improved backoff test

---
 src/Maestro/Client/Env.hs    | 2 +-
 test/Maestro/Test/Backoff.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Maestro/Client/Env.hs b/src/Maestro/Client/Env.hs
index 0ecdc2f..52145d2 100644
--- a/src/Maestro/Client/Env.hs
+++ b/src/Maestro/Client/Env.hs
@@ -77,4 +77,4 @@ servantClientEnv url = do
 
 -- | Base delay & maximum waiting in microseconds corresponding to `maeBaseDelay`, `maeMaxDelay` respectively. See description of `maeBaseDelay` & `maeMaxDelay` for more information.
 defaultBackoff :: Maybe (Int, Int)
-defaultBackoff = Just (50000, 10000000)
+defaultBackoff = Just (1_000_000, 10_000_000)
diff --git a/test/Maestro/Test/Backoff.hs b/test/Maestro/Test/Backoff.hs
index 2f4bf9c..30f3361 100644
--- a/test/Maestro/Test/Backoff.hs
+++ b/test/Maestro/Test/Backoff.hs
@@ -47,7 +47,7 @@ forkChild :: MVar [MVar Ret] -> IO Ret -> IO ThreadId
 forkChild children action = do
     mvar :: MVar Ret <- newEmptyMVar
     childs <- takeMVar children
-    putMVar children (mvar:childs)
+    putMVar children (mvar : childs)
     forkFinally action $ \case
       Left _     -> putMVar mvar $ Left $ MaestroError "client finished abruptly"
       Right ret' -> putMVar mvar ret'