From c19956a73a363a6f469be4182f781c99a0fd24c1 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Wed, 10 Apr 2024 11:30:53 +0300
Subject: [PATCH] debug

---
 hbs2-fixer/app/Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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]