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

dev: ui: add some commented debug logging of state

Browse Source
This commit is contained in:
Simon Michael 2022-09-10 12:41:37 -10:00
parent 96f42380e8
commit 0ba0a12cc0
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-ui/Hledger/UI/UIUtils.hs
View File

@ -56,7 +56,9 @@ import Graphics.Vty
import Lens.Micro.Platform import Lens.Micro.Platform
import Hledger import Hledger
-- import Hledger.Cli.CliOptions (CliOpts(reportspec_))
import Hledger.Cli.DocFiles import Hledger.Cli.DocFiles
-- import Hledger.UI.UIOptions (UIOpts(uoCliOpts))
import Hledger.UI.UITypes import Hledger.UI.UITypes
import Data.Vector (Vector) import Data.Vector (Vector)
@ -78,16 +80,20 @@ suspendSignal = raiseSignal sigSTOP
get' = do get' = do
x <- get x <- get
dlogUiTraceM $ "getting state: " ++ (head $ lines $ pshow $ aScreen x) dlogUiTraceM $ "getting state: " ++ (head $ lines $ pshow $ aScreen x)
-- dlogUiTraceM $ ("query: "++) $ pshow' $ x & aopts & uoCliOpts & reportspec_ & _rsQuery
return x return x
put' x = do put' x = do
dlogUiTraceM $ "putting state: " ++ (head $ lines $ pshow $ aScreen x) dlogUiTraceM $ "putting state: " ++ (head $ lines $ pshow $ aScreen x)
-- dlogUiTraceM $ ("query: "++) $ pshow' $ x & aopts & uoCliOpts & reportspec_ & _rsQuery
put x put x
modify' f = do modify' f = do
x <- get x <- get
let x' = f x let x' = f x
dlogUiTraceM $ "modifying state: " ++ (head $ lines $ pshow $ aScreen x') dlogUiTraceM $ "modifying state: " ++ (head $ lines $ pshow $ aScreen x')
-- dlogUiTraceM $ ("from: "++) $ pshow' $ x & aopts & uoCliOpts & reportspec_ & _rsQuery
-- dlogUiTraceM $ ("to: "++) $ pshow' $ x' & aopts & uoCliOpts & reportspec_ & _rsQuery
modify f modify f
-- | On posix platforms, suspend the program using the STOP signal, -- | On posix platforms, suspend the program using the STOP signal,