Simplify analyze code a bit more

1 files changed, 4 insertions, 0 deletions

diff --git a/Biz/Log.hs b/Biz/Log.hs
index c3362d9..286e00a 100644
--- a/Biz/Log.hs
+++ b/Biz/Log.hs
@@ -9,6 +9,7 @@ module Biz.Log
     info,
     warn,
     fail,
+    wipe,
 
     -- * Debugging
     mark,
@@ -72,6 +73,9 @@ gap = ":  "
 br :: IO ()
 br = Rainbow.hPutChunks stderr ["\n"] >> IO.hFlush stderr
 
+wipe :: IO ()
+wipe = hPutStr stderr ("\r" :: Text) >> IO.hFlush stderr
+
 good, pass, info, warn, fail :: [Text] -> IO ()
 good = msg Good
 pass = msg Pass