debug

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]