diff options
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 |