From f45e82a67bc0343b42373599cd957a88c7515f26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 23 Mar 2025 13:44:02 +0100
Subject: Terminal: properly draw bottom lines in getInputLine

---
 main/Terminal.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'main')

diff --git a/main/Terminal.hs b/main/Terminal.hs
index 7767122..3946576 100644
--- a/main/Terminal.hs
+++ b/main/Terminal.hs
@@ -129,7 +129,8 @@ getInputLine term@Terminal {..} handleResult = do
         prompt <- atomically $ do
             writeTVar termShowPrompt True
             readTVar termPrompt
-        putStr prompt
+        putStr $ prompt <> "\ESC[K"
+        drawBottomLines term
         hFlush stdout
     (handleResult <$> go) >>= \case
         KeepPrompt x -> do
-- 
cgit v1.2.3