Req config for flaky services (retry on everything >= 500)

gistfile1.txt

-- Usage:
--
-- import Network.HTTP.Flaky
--
-- instance MonadHttp MyMonad where
--   handleHttpException = liftIO . throwIO
--   getHttpConfig = return flakyConfig

module Network.HTTP.Flaky
  ( flakyConfig
  ) where

import Debug.Trace
import Network.HTTP.Req
import Data.Default
import Network.HTTP.Client (responseStatus, Response)
import Network.HTTP.Types (statusCode)

flakyConfig :: HttpConfig
flakyConfig = def {httpConfigRetryJudge = judgeOfFlakiness}

judgeOfFlakiness :: _RetryStatus -> Response x -> Bool
judgeOfFlakiness _ _ | trace "judging" False = error "move along"
judgeOfFlakiness _ resp = statusCode (responseStatus resp) >= 500