;cln: ui: clarify watch loop

simonmichael · Jul 21, 2021 · a83c2f6 · a83c2f6
1 parent c606f87
commit a83c2f6
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
@@ -195,10 +195,11 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{inputopts_=_iopts,reportspec_=rsp
           writeChan eventChan dc
         watchDate new
 
-    withAsync
-      (getCurrentDay >>= watchDate)
-      $ \_ ->
-
+    withAsync 
+      -- run this small task asynchronously:
+      (getCurrentDay >>= watchDate) 
+      -- until this main task terminates:
+      $ \_async ->
       -- start one or more background threads reporting changes in the directories of our files
       -- XXX many quick successive saves causes the problems listed in BUGS
       -- with Debounce increased to 1s it easily gets stuck on an error or blank screen