Postpone flushing terminal when replacing linesHEADmaster

1 files changed, 1 insertions, 1 deletions

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