Improved backoff test

maestro-org · Sep 23, 2023 · deb4e88 · deb4e88
1 parent 14b93a9
commit deb4e88
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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'