retryStream :: Request a -> RetryPolicy
retryStream x = RetryPolicy (const $ listToMaybe [0 | not p])
  where
    !p = isStreaming (_rqBody x)
retryStream :: Request a -> RetryPolicy
retryStream x = RetryPolicy (const $ listToMaybe [0 | not p])
  where
    !p = isStreaming (_rqBody x)
retryStream x = RetryPolicy (const $ listToMaybe [0 | not p])
  where
    !p = isStreaming (_rqBody x)