From b162d2e23a500bb362aaf2b94d8d3ee8f3651163 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 6 Jul 2026 12:02:29 +0200
Subject: Print exception cought in the run loop

---
 src/Output.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Output.hs')

diff --git a/src/Output.hs b/src/Output.hs
index 293f598..c50d97a 100644
--- a/src/Output.hs
+++ b/src/Output.hs
@@ -49,6 +49,7 @@ data OutputEvent
     | JobIsDuplicate JobId Text
     | JobPreviouslyFinished JobId Text
     | JobWasSkipped JobId
+    | RunInterruptedByUser
 
 data OutputFootnote = OutputFootnote
     { footnoteText :: Text
@@ -133,6 +134,11 @@ outputEvent out@Output {..} = liftIO . \case
         forM_ outLogs $ \h -> outStrLn out h ("Skipped " <> textJobId jid)
         forM_ outTest $ \h -> outStrLn out h ("job-skip " <> textJobId jid)
 
+    RunInterruptedByUser -> do
+        forM_ outTerminal $ \term -> void $ newLine term "\rInterrupted by user"
+        forM_ outLogs $ \h -> outStrLn out h "Interrupted by user"
+        forM_ outTest $ \h -> outStrLn out h "run-user-interrupt"
+
 outputFootnote :: Output -> Text -> IO OutputFootnote
 outputFootnote out@Output {..} footnoteText = do
     footnoteTerminal <- forM outTerminal $ \term -> newFootnote term footnoteText
-- 
cgit v1.2.3