diff --git a/hbs2-fixer/app/Main.hs b/hbs2-fixer/app/Main.hs index 431d5797..1fe1e217 100644 --- a/hbs2-fixer/app/Main.hs +++ b/hbs2-fixer/app/Main.hs @@ -314,14 +314,12 @@ mainLoop = do r <- liftIO $ E.try @SomeException (join $ atomically $ readTQueue jobs) case r of Left e -> do - err ("CATCHED" <+> viaShow e) + err (viaShow e) let ee = fromException @AsyncCancelled e unless (isJust ee) do next - debug "WE'RE FUCKING CANCELLED!" - _ -> next void $ waitAnyCatchCancel [p1,p2,p3]