From 0a003c3303cf01744436cdf94a36bc73f196e353 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 2 Aug 2022 13:40:13 -0400
Subject: Simplify analyze code a bit more

---
 Biz/Log.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Biz/Log.hs')

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
-- 
cgit v1.2.3