slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

imp: ui: improve --debug=2 debug.log logging

Browse Source
This commit is contained in:
Simon Michael 2022-10-28 16:51:55 -10:00
parent 020dec10a7
commit 21c00f9ba2
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
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, dlogUiTraceM) import Hledger.UI.UIUtils (dlogUiTraceM, dlogUiTraceIO)
import Hledger.UI.MenuScreen import Hledger.UI.MenuScreen
import Hledger.UI.AccountsScreen import Hledger.UI.AccountsScreen
import Hledger.UI.BalancesheetScreen import Hledger.UI.BalancesheetScreen
@ -69,7 +69,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 do
let let
today = copts^.rsDay today = copts^.rsDay
@ -166,6 +166,8 @@ runBrickUi uopts0@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=r
setMode (outputIface v) Mouse True setMode (outputIface v) Mouse True
return v return v
dlogUiTraceIO "\n\n==== hledger-ui start"
if not (uoWatch uopts) if not (uoWatch uopts)
then do then do
vty <- makevty vty <- makevty
@ -241,7 +243,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 dlogUiTraceM $ "\n==== " ++ show ev
ui <- get ui <- get
case aScreen ui of case aScreen ui of
MS _ -> msHandle ev MS _ -> msHandle ev