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

use native Exception.handle to respawn

This commit is contained in:
Sergey Ivanov 2023-08-16 16:54:45 +04:00
parent b7079c2915
commit 3a04d7f0ab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -449,7 +449,7 @@ 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