Merge remote-tracking branch 'origin/retry-0.7'
commitccdce4711f60d799371905c74eeaf075846b8bf2
authorMichael Xavier <michael@michaelxavier.net>
dateFri 13 Nov 2015, 10:36 (11 years ago)
parent80fca3f4fbe597
katip-elasticsearch/katip-elasticsearch.cabal+1−1
@@ -30,7 +30,7 @@ library
3030 , enclosed-exceptions >= 1.0.0 && < 1.1
3131 , http-client
3232 , text
33− , retry >= 0.6 && < 0.8
33+ , retry >= 0.7 && < 0.8
3434 , exceptions
3535 , scientific
3636 , unordered-containers
katip-elasticsearch/src/Katip/Scribes/ElasticSearch.hs+1−1
@@ -257,7 +257,7 @@ startWorker EsScribeCfg {..} env ix mapping q = go -- manual recursion here. is
257257 sendLog v' `catchAny` eat
258258 go
259259 Nothing -> return ()
260− sendLog v = void $ recovering essRetryPolicy [handler] $ do
260+ sendLog v = void $ recovering essRetryPolicy [handler] $ const $ do
261261 did <- mkDocId
262262 runBH env $ indexDocument ix mapping defaultIndexDocumentSettings v did
263263 eat _ = return ()