diff options
| -rw-r--r-- | main/Main.hs | 6 |
1 files 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 |