From d303e09603d6905bc75c737a336b941ceab6a7fb Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 12 Sep 2025 22:56:31 +0100
Subject: [PATCH] imp:ui: improve debug output

---
 hledger-ui/Hledger/UI/UIState.hs | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/hledger-ui/Hledger/UI/UIState.hs b/hledger-ui/Hledger/UI/UIState.hs
index 30d35ac89..9d282a89a 100644
--- a/hledger-ui/Hledger/UI/UIState.hs
+++ b/hledger-ui/Hledger/UI/UIState.hs
@@ -60,7 +60,7 @@ import Hledger.Cli.CliOptions
 import Hledger.UI.UITypes
 import Hledger.UI.UIOptions (UIOpts(uoCliOpts))
 import Hledger.UI.UIScreens (screenUpdate)
-import Hledger.UI.UIUtils (showScreenId)
+import Hledger.UI.UIUtils (showScreenId, showScreenStack)
 
 -- | Make an initial UI state with the given options, journal,
 -- parent screen stack if any, and starting screen.
@@ -341,17 +341,15 @@ setMode m ui = ui{aMode=m}
 
 pushScreen :: Screen -> UIState -> UIState
 pushScreen scr ui =
-  dbg1Msg ("pushing screen " <> showScreenId scr)
-  ui{aPrevScreens=aScreen ui:aPrevScreens ui
-    ,aScreen=scr
-  }
+  dbg1Msg ("pushing screen " <> showScreenId scr <> ". " <> showScreenStack "" showScreenId ui1)
+  ui1
+  where ui1 = ui{aPrevScreens=aScreen ui:aPrevScreens ui, aScreen=scr }
 
 popScreen :: UIState -> UIState
 popScreen ui@UIState{aPrevScreens = s : ss} =
-  dbg1Msg ("popping screen " <> showScreenId (aScreen ui))
-  ui{aPrevScreens = ss
-    ,aScreen = s
-  }
+  dbg1Msg ("popping screen " <> showScreenId (aScreen ui) <> ". " <> showScreenStack "" showScreenId ui1)
+  ui1
+  where ui1 = ui{aPrevScreens = ss ,aScreen = s }
 popScreen ui = ui
 
 -- | Reset options to their startup values, discard screen navigation history,