From b2319c8084d34edb85e0fee4ca7edcdee0c8aeed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 1 Jun 2026 20:52:01 +0200 Subject: Postpone flushing terminal when replacing lines --- main/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'main/Main.hs') diff --git a/main/Main.hs b/main/Main.hs index 4a85f4e..8d7cc08 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -418,7 +418,7 @@ interactiveLoop st opts = withTerminal commandCompletion $ \term -> do _ <- liftIO $ do tzone <- getCurrentTimeZone let self = finalOwner $ headLocalIdentity erebosHead - watchDirectMessageThreads erebosHead $ \prev cur -> do + watchDirectMessageThreads erebosHead $ \prev cur -> holdFlush term $ do let ( remove, messages ) = dmThreadToListChange prev cur when (remove > 0) $ do modifyMVar_ currentLinesVar $ \clines -> if -- cgit v1.2.3