diff options
Diffstat (limited to 'src/Output.hs')
| -rw-r--r-- | src/Output.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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 |