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

ui: small change to --watch, ignore file add/remove events

Browse Source
This commit is contained in:
Simon Michael 2016-12-30 20:00:50 -08:00
parent 48fa4afc96
commit 37632a3283
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -162,11 +162,12 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}} j = do
-- use async for proper child termination in GHCI -- use async for proper child termination in GHCI
let let
watchDate old = do watchDate old = do
threadDelay 1000000 -- 1s threadDelay 1000000 -- 1 s
new <- getCurrentDay new <- getCurrentDay
when (new /= old) $ do when (new /= old) $ do
let dc = DateChange old new let dc = DateChange old new
-- dbg1IO "datechange" dc -- XXX don't uncomment until dbg*IO fixed to use traceIO, GHC may block/end thread -- dbg1IO "datechange" dc -- XXX don't uncomment until dbg*IO fixed to use traceIO, GHC may block/end thread
-- traceIO $ show dc
writeChan eventChan dc writeChan eventChan dc
watchDate new watchDate new
@ -190,9 +191,13 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}} j = do
d d
-- predicate: ignore changes not involving our files -- predicate: ignore changes not involving our files
(\fev -> case fev of (\fev -> case fev of
Added f _ -> f `elem` files
Modified f _ -> f `elem` files Modified f _ -> f `elem` files
Removed f _ -> f `elem` files -- Added f _ -> f `elem` files
-- Removed f _ -> f `elem` files
-- we don't handle adding/removing journal files right now
-- and there might be some of those events from tmp files
-- clogging things up so let's ignore them
_ -> False
) )
-- action: send event to app -- action: send event to app
(\fev -> do (\fev -> do