From 21c00f9ba22aa1a7f63c1da20cb806d05c53b6fa Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 28 Oct 2022 16:51:55 -1000
Subject: [PATCH] imp: ui: improve --debug=2 debug.log logging

---
 hledger-ui/Hledger/UI/Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
index 231d18a41..14ff926e8 100644
--- a/hledger-ui/Hledger/UI/Main.hs
+++ b/hledger-ui/Hledger/UI/Main.hs
@@ -33,7 +33,7 @@ import Hledger.UI.Theme
 import Hledger.UI.UIOptions
 import Hledger.UI.UITypes
 import Hledger.UI.UIState (uiState, getDepth)
-import Hledger.UI.UIUtils (dlogUiTrace, dlogUiTraceM)
+import Hledger.UI.UIUtils (dlogUiTraceM, dlogUiTraceIO)
 import Hledger.UI.MenuScreen
 import Hledger.UI.AccountsScreen
 import Hledger.UI.BalancesheetScreen
@@ -69,7 +69,7 @@ main = do
 
 runBrickUi :: UIOpts -> Journal -> IO ()
 runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=rspec@ReportSpec{_rsReportOpts=ropts}}} j =
-  dlogUiTrace "==== runBrickUi" $ do
+  do
   let
     today = copts^.rsDay
 
@@ -166,6 +166,8 @@ runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=r
       setMode (outputIface v) Mouse True
       return v
 
+  dlogUiTraceIO "\n\n==== hledger-ui start"
+
   if not (uoWatch uopts)
   then do
     vty <- makevty
@@ -241,7 +243,7 @@ brickApp mtheme = App {
 
 uiHandle :: BrickEvent Name AppEvent -> EventM Name UIState ()
 uiHandle ev = do
-  dlogUiTraceM $ "==== " ++ show ev
+  dlogUiTraceM $ "\n==== " ++ show ev
   ui <- get
   case aScreen ui of
     MS _ -> msHandle ev