git.iko.soy/typeable/katip
on master help sign in
updates for upcoming retry 0.7
4fbe597Michael Xavier
katip-elasticsearch/katip-elasticsearch.cabal+1−1
compare with master
unifiedsplit
@@ -30,7 +30,7 @@ library
30 , enclosed-exceptions >= 1.0.0 && < 1.1
30 , enclosed-exceptions >= 1.0.0 && < 1.1
31 , http-client
31 , http-client
32 , text
32 , text
33− , retry >= 0.6 && < 0.8
33+ , retry >= 0.7 && < 0.8
34 , exceptions
34 , exceptions
35 , scientific
35 , scientific
36 , unordered-containers
36 , 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
257 sendLog v' `catchAny` eat
257 sendLog v' `catchAny` eat
258 go
258 go
259 Nothing -> return ()
259 Nothing -> return ()
260− sendLog v = void $ recovering essRetryPolicy [handler] $ do
260+ sendLog v = void $ recovering essRetryPolicy [handler] $ const $ do
261 did <- mkDocId
261 did <- mkDocId
262 runBH env $ indexDocument ix mapping defaultIndexDocumentSettings v did
262 runBH env $ indexDocument ix mapping defaultIndexDocumentSettings v did
263 eat _ = return ()
263 eat _ = return ()