From a873ff9e9ab4c399c574f7948ad6b831050db613 Mon Sep 17 00:00:00 2001
From: Marcin Szamotulski <coot@coot.me>
Date: Mon, 19 Sep 2022 19:19:20 +0200
Subject: [PATCH] ouroboros-consensus: updated consensusRethrowPolicy

---
 .../src/Ouroboros/Consensus/Node/RethrowPolicy.hs               | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ouroboros-consensus/src/Ouroboros/Consensus/Node/RethrowPolicy.hs b/ouroboros-consensus/src/Ouroboros/Consensus/Node/RethrowPolicy.hs
index eee24f20892..5d4641c07a0 100644
--- a/ouroboros-consensus/src/Ouroboros/Consensus/Node/RethrowPolicy.hs
+++ b/ouroboros-consensus/src/Ouroboros/Consensus/Node/RethrowPolicy.hs
@@ -106,7 +106,7 @@ consensusRethrowPolicy pb =
 
        -- Dispatch on nested exception
     <> mkRethrowPolicy (\ctx (ExceptionInLinkedThread _ e) ->
-          runRethrowPolicy_ (consensusRethrowPolicy pb) ctx e)
+          runRethrowPolicyPure (consensusRethrowPolicy pb) ctx e)
   where
     -- Shutdown the node. If we have a storage layer failure, the node /must/
     -- be restarted (triggering recovery).