ENH run all of xmobar in rio
This commit is contained in:
parent
f6c0596716
commit
a997cac7a3
|
@ -50,10 +50,11 @@ parse ["--test"] = void $ withCache . evalConfig =<< connectDBus
|
||||||
parse _ = usage
|
parse _ = usage
|
||||||
|
|
||||||
run :: IO ()
|
run :: IO ()
|
||||||
run = do
|
run = withCache $ do
|
||||||
db <- connectDBus
|
db <- connectDBus
|
||||||
c <- withCache $ evalConfig db
|
c <- evalConfig db
|
||||||
disconnectDBus db
|
disconnectDBus db
|
||||||
|
liftIO $ do
|
||||||
-- this is needed to see any printed messages
|
-- this is needed to see any printed messages
|
||||||
hFlush stdout
|
hFlush stdout
|
||||||
xmobar c
|
xmobar c
|
||||||
|
|
Loading…
Reference in New Issue