ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH use bracket dbus for xmobar tests

This commit is contained in:
Nathan Dwarshuis 2022-12-31 22:33:33 -05:00
parent 3b8c6b0f4f
commit 8c20a4668d
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
bin/xmobar.hs
View File

@ -46,7 +46,7 @@ main = getArgs >>= parse
parse :: [String] -> IO () parse :: [String] -> IO ()
parse [] = run parse [] = run
parse ["--deps"] = withCache printDeps parse ["--deps"] = withCache printDeps
parse ["--test"] = void $ withCache . evalConfig =<< connectDBus parse ["--test"] = withCache $ withDBus_ evalConfig
parse _ = usage parse _ = usage
run :: IO () run :: IO ()
@ -66,11 +66,13 @@ evalConfig db = do
return $ config bf ifs ios cs d return $ config bf ifs ios cs d
printDeps :: FIO () printDeps :: FIO ()
printDeps = do printDeps = withDBus_ $ \db ->
db <- io connectDBus mapM_ (liftIO . putStrLn . T.unpack) $
let ps = sort $ nub $ fmap showFulfillment $ concatMap dumpFeature $ allFeatures db sort $
io $ mapM_ (putStrLn . T.unpack) ps nub $
io $ disconnectDBus db fmap showFulfillment $
concatMap dumpFeature $
allFeatures db
usage :: IO () usage :: IO ()
usage = usage =