Merge pull request #5290 from sellout/transcript-stanza-counter

Improve transcript runner output
2024-10-05 22:27:28 +03:00 · 2024-09-03 13:59:47 -04:00 · 2024-09-03 13:59:47 -04:00 · e812c302b2
commit e812c302b2
parent 3202e618b4 8137f5797a
1 changed files with 15 additions and 8 deletions
--- a/unison-cli/src/Unison/Codebase/Transcript/Runner.hs
+++ b/unison-cli/src/Unison/Codebase/Transcript/Runner.hs
@ -280,17 +280,24 @@ run isTest verbosity dir stanzas codebase runtime sbRuntime nRuntime ucmVersion
            maybeStanza <- atomically (Q.tryDequeue inputQueue)
            _ <- liftIO (writeIORef mStanza maybeStanza)
            case maybeStanza of
-              Nothing -> do
-                liftIO (putStrLn "")
+              Nothing -> liftIO do
+                clearCurrentLine
+                putStrLn "\r✔️   Completed transcript."
                pure $ Right QuitI
-              Just (s, idx) -> do
+              Just (s, midx) -> do
                unless (Verbosity.isSilent verbosity) . liftIO $ do
+                  clearCurrentLine
                  putStr $
-                    "\r⚙️   Processing stanza "
-                      ++ show idx
-                      ++ " of "
-                      ++ show (length stanzas)
-                      ++ "."
+                    maybe
+                      "\r⏩   Skipping non-executable Markdown block."
+                      ( \idx ->
+                          "\r⚙️   Processing stanza "
+                            ++ show idx
+                            ++ " of "
+                            ++ show (length stanzas)
+                            ++ "."
+                      )
+                      midx
                  IO.hFlush IO.stdout
                either
                  ( \node -> do