ENH use dbus bracket for xmobar

bin/xmobar.hs

@@ -50,10 +50,8 @@ parse ["--test"] = void $ withCache . evalConfig =<< connectDBus
 parse _ = usage
 
 run :: IO ()
-run = withCache $ do
-  db <- connectDBus
+run = withCache $ withDBus_ $ \db -> do
   c <- evalConfig db
-  disconnectDBus db
   liftIO $ do
     -- this is needed to see any printed messages
     hFlush stdout

lib/XMonad/Internal/DBus/Control.hs

@@ -6,6 +6,8 @@
 module XMonad.Internal.DBus.Control
   ( Client
   , DBusState (..)
+  , withDBus
+  , withDBus_
   , connectDBus
   , connectDBusX
   , disconnectDBus
@@ -34,6 +36,12 @@ data DBusState = DBusState
   , dbSysClient :: Maybe SysClient
   }
 
+withDBus_ :: MonadUnliftIO m => (DBusState -> m a) -> m ()
+withDBus_ = void . withDBus
+
+withDBus :: MonadUnliftIO m => (DBusState -> m a) -> m a
+withDBus = bracket connectDBus disconnectDBus
+
 -- | Connect to the DBus
 connectDBus :: MonadUnliftIO m => m DBusState
 connectDBus = do