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.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