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