ENH run all of xmobar in rio

2022-12-31 22:24:20 -05:00 · 2022-12-31 22:24:20 -05:00 · a997cac7a3
parent f6c0596716
commit a997cac7a3
1 changed files with 6 additions and 5 deletions
--- a/bin/xmobar.hs
+++ b/bin/xmobar.hs
@ -50,10 +50,11 @@ parse ["--test"] = void $ withCache . evalConfig =<< connectDBus
 parse _ = usage

 run :: IO ()
-run = do
+run = withCache $ do
  db <- connectDBus
-  c <- withCache $ evalConfig db
+  c <- evalConfig db
  disconnectDBus db
+  liftIO $ do
    -- this is needed to see any printed messages
    hFlush stdout
    xmobar c