From 4684006e4dd4c42674ba17a35ba394c939674346 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Wed, 17 Jul 2024 21:20:48 +0200
Subject: Evaluate external print parameter first to avoid blinking

---
 main/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/main/Main.hs b/main/Main.hs
index d5b06ea..236e729 100644
--- a/main/Main.hs
+++ b/main/Main.hs
@@ -231,8 +231,10 @@ interactiveLoop st opts = runInputT inputSettings $ do
 
     tui <- haveTerminalUI
     extPrint <- getExternalPrint
-    let extPrintLn str = extPrint $ case reverse str of ('\n':_) -> str
-                                                        _ -> str ++ "\n";
+    let extPrintLn str = do
+            let str' = case reverse str of ('\n':_) -> str
+                                           _ -> str ++ "\n";
+            extPrint $! str' -- evaluate str before calling extPrint to avoid blinking
 
     let getInputLinesTui eprompt = do
             prompt <- case eprompt of
-- 
cgit v1.2.3