ouroboros-consensus: updated consensusRethrowPolicy

IntersectMBO · Sep 22, 2022 · a873ff9 · a873ff9
1 parent 59a82be
commit a873ff9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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).