simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-27 04:13:11 +03:00
Code Issues Projects Releases Wiki Activity

imp: ui: at --debug 2+, also log events

Browse Source
This commit is contained in:
Simon Michael 2022-09-10 12:54:19 -10:00
parent 68b243e670
commit 9fc92cefe4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/Main.hs
View File

@ -33,7 +33,7 @@ import Hledger.UI.Theme
import Hledger.UI.UIOptions import Hledger.UI.UIOptions
import Hledger.UI.UITypes import Hledger.UI.UITypes
import Hledger.UI.UIState (uiState, getDepth) import Hledger.UI.UIState (uiState, getDepth)
import Hledger.UI.UIUtils (dlogUiTrace) import Hledger.UI.UIUtils (dlogUiTrace, dlogUiTraceM)
import Hledger.UI.MenuScreen import Hledger.UI.MenuScreen
import Hledger.UI.AccountsScreen import Hledger.UI.AccountsScreen
import Hledger.UI.BalancesheetScreen import Hledger.UI.BalancesheetScreen
@ -68,7 +68,7 @@ main = do
runBrickUi :: UIOpts -> Journal -> IO () runBrickUi :: UIOpts -> Journal -> IO ()
runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=rspec@ReportSpec{_rsReportOpts=ropts}}} j = runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=rspec@ReportSpec{_rsReportOpts=ropts}}} j =
dlogUiTrace "========= runBrickUi" $ do dlogUiTrace "==== runBrickUi" $ do
let let
today = copts^.rsDay today = copts^.rsDay
@ -240,6 +240,7 @@ brickApp mtheme = App {
uiHandle :: BrickEvent Name AppEvent -> EventM Name UIState () uiHandle :: BrickEvent Name AppEvent -> EventM Name UIState ()
uiHandle ev = do uiHandle ev = do
dlogUiTraceM $ "==== " ++ show ev
ui <- get ui <- get
case aScreen ui of case aScreen ui of
MS _ -> msHandle ev MS _ -> msHandle ev