From fc52fabbf9855bdd5b0d1e7608ff676370360bac Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Tue, 14 Nov 2023 05:38:34 +0300 Subject: [PATCH] maybe no-respawn on STM exception fixed --- hbs2-peer/app/PeerMain.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/hbs2-peer/app/PeerMain.hs b/hbs2-peer/app/PeerMain.hs index e5c1d720..b223e105 100644 --- a/hbs2-peer/app/PeerMain.hs +++ b/hbs2-peer/app/PeerMain.hs @@ -571,10 +571,10 @@ runPeer :: forall e s . ( e ~ L4Proto , HasStorage (PeerM e IO) )=> PeerOpts -> IO () -runPeer opts = U.handle (\e -> myException e - >> performGC - >> respawn opts - ) $ runResourceT do +runPeer opts = Exception.handle (\e -> myException e + >> performGC + >> respawn opts + ) $ runResourceT do myself <- liftIO myThreadId