updates for upcoming retry 0.7
commit4fbe5979bbfe99d16c19ce0cac3ef7b02e7548c8
authorMichael Xavier <michael@michaelxavier.net>
dateThu 12 Nov 2015, 10:12 (11 years ago)
parenta654a16
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 ()