From 55719f344480eefb6baa1277c9d38ef2162439a0 Mon Sep 17 00:00:00 2001 From: Yu Cong Date: Thu, 26 Mar 2026 15:57:32 +0800 Subject: [PATCH] fix a tui bug --- src/site.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/site.hs b/src/site.hs index 1895e28..818db7f 100644 --- a/src/site.hs +++ b/src/site.hs @@ -324,10 +324,10 @@ renderWatchDashboard renderStateRef projectRoot config watchSettings serverStatu border = "+" ++ replicate (cols - 2) '-' ++ "+" infoRows = [ dashboardRow cols ("Project : " ++ projectRoot), - dashboardRow cols ("Output : " ++ destinationDirectory config), + -- dashboardRow cols ("Output : " ++ destinationDirectory config), dashboardRow cols ("Preview : " ++ renderServerStatus watchSettings serverStatus), - dashboardRow cols "Watch : notes/, reference.bib, math-macros.md, images/ (optional)", - dashboardRow cols ("Change : " ++ dashboardLastChange dashboard), + -- dashboardRow cols "Watch : notes/, reference.bib, math-macros.md, images/ (optional)", + -- dashboardRow cols ("Change : " ++ dashboardLastChange dashboard), dashboardRow cols ("Build : " ++ dashboardLastBuild dashboard) ] headerRows = @@ -345,7 +345,7 @@ renderWatchDashboard renderStateRef projectRoot config watchSettings serverStatu takeLast availableLogRows (dashboardLogLines dashboard) screenRows = take rows (headerRows ++ logRows ++ footerRows) putStr "\ESC[2J\ESC[H" - putStr (unlines screenRows) + putStr (intercalate "\n" screenRows) hFlush stdout writeIORef renderStateRef currentRenderState