maybe no-respawn on STM exception fixed

2023-11-14 05:38:34 +03:00 · 2023-11-14 05:38:34 +03:00 · fc52fabbf9
parent e107c318c3
commit fc52fabbf9
1 changed files with 4 additions and 4 deletions
--- 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