Use strict fields for RetryStatus

For #32
Soostone · Nov 12, 2015 · 8f631fa · 8f631fa
1 parent 87e3403
commit 8f631fa
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Control/Retry.hs b/src/Control/Retry.hs
@@ -155,9 +155,9 @@ instance Monad m => Monoid (RetryPolicyM m) where
 -- >> retryStatus { rsIterNumber = newIterNumber }
 -- >> retryStatus & rsIterNumberL .~ newIterNumber
 data RetryStatus = RetryStatus
-    { rsIterNumber      :: Int -- ^ Iteration number, where 0 is the first try
-    , rsCumulativeDelay :: Int -- ^ Delay incurred so far from retries in microseconds
-    , rsPreviousDelay   :: Maybe Int -- ^ Previous attempt's delay. Will always be Nothing on first run.
+    { rsIterNumber      :: !Int -- ^ Iteration number, where 0 is the first try
+    , rsCumulativeDelay :: !Int -- ^ Delay incurred so far from retries in microseconds
+    , rsPreviousDelay   :: !(Maybe Int) -- ^ Previous attempt's delay. Will always be Nothing on first run.
     } deriving (Show, Eq, Generic)