voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

maybe no-respawn on STM exception fixed

This commit is contained in:
Dmitry Zuikov 2023-11-14 05:38:34 +03:00
parent e107c318c3
commit fc52fabbf9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
hbs2-peer/app/PeerMain.hs
View File

@ -571,10 +571,10 @@ runPeer :: forall e s . ( e ~ L4Proto
, HasStorage (PeerM e IO) , HasStorage (PeerM e IO)
)=> PeerOpts -> IO () )=> PeerOpts -> IO ()
runPeer opts = U.handle (\e -> myException e runPeer opts = Exception.handle (\e -> myException e
>> performGC >> performGC
>> respawn opts >> respawn opts
) $ runResourceT do ) $ runResourceT do
myself <- liftIO myThreadId myself <- liftIO myThreadId