Add indefiniteDefaults

cachix · Jan 23, 2024 · 5f65932 · 5f65932
1 parent d24f052
commit 5f65932
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Stamina.hs b/src/Stamina.hs
@@ -7,6 +7,7 @@ module Stamina
     -- types
     RetrySettings (..),
     defaults,
+    indefiniteDefaults,
     RetryAction (..),
     RetryStatus (..),
     -- raising exceptions
@@ -75,6 +76,13 @@ defaults =
       backoffExpBase = 2.0
     }
 
+indefiniteDefaults :: RetrySettings
+indefiniteDefaults =
+  defaults
+    { maxTime = Nothing,
+      maxAttempts = Nothing
+    }
+
 data RetryAction
   = RaiseException -- Propagate the exception.
   | Retry -- Retry with the delay according to the settings.