diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-23 13:44:02 +0100 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2025-03-23 13:44:02 +0100 |
| commit | f45e82a67bc0343b42373599cd957a88c7515f26 (patch) | |
| tree | c75f3fd16404a940232e74f4121af8d61f6cdb04 /main | |
| parent | 8ae3d5511e23cb5dd5c68242834c0e2f122e7b3a (diff) | |
Terminal: properly draw bottom lines in getInputLine
Diffstat (limited to 'main')
| -rw-r--r-- | main/Terminal.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |