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

debug

This commit is contained in:
Dmitry Zuikov 2024-04-10 11:30:53 +03:00
parent c75dd1ae6b
commit c19956a73a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-fixer/app/Main.hs
View File

@ -314,14 +314,12 @@ mainLoop = do
r <- liftIO $ E.try @SomeException (join $ atomically $ readTQueue jobs) r <- liftIO $ E.try @SomeException (join $ atomically $ readTQueue jobs)
case r of case r of
Left e -> do Left e -> do
err ("CATCHED" <+> viaShow e) err (viaShow e)
let ee = fromException @AsyncCancelled e let ee = fromException @AsyncCancelled e
unless (isJust ee) do unless (isJust ee) do
next next
debug "WE'RE FUCKING CANCELLED!"
_ -> next _ -> next
void $ waitAnyCatchCancel [p1,p2,p3] void $ waitAnyCatchCancel [p1,p2,p3]