ENH use dbus lib for signals

bin/xmonad.hs

@@ -860,7 +860,7 @@ externalBindings runIO cleanup db =
       , KeyBinding "M-<F8>" "select autorandr profile" $ Left runAutorandrMenu
       , KeyBinding "M-<F9>" "toggle ethernet" $ Left runToggleEthernet
       , KeyBinding "M-<F10>" "toggle bluetooth" $ Left $ runToggleBluetooth sys
-      , KeyBinding "M-<F11>" "toggle screensaver" $ Left $ (liftIO . runIO) <$> callToggle ses
+      , KeyBinding "M-<F11>" "toggle screensaver" $ Left $ liftIO . runIO <$> callToggle ses
       , KeyBinding "M-<F12>" "switch gpu" $ Left runOptimusPrompt
       ]
   ]

lib/XMonad/Internal/DBus/Removable.hs

@@ -73,24 +73,23 @@ removedHasDrive [_, a] =
     (fromVariant a :: Maybe [String])
 removedHasDrive _ = False
 
-playSoundMaybe :: FilePath -> Bool -> IO ()
+playSoundMaybe :: MonadUnliftIO m => FilePath -> Bool -> m ()
 playSoundMaybe p b = when b $ io $ playSound p
 
 -- NOTE: the udisks2 service should be already running for this module to work.
 -- If it not already, we won't see any signals from the dbus until it is
 -- started (it will work after it is started however). It seems safe to simply
 -- enable the udisks2 service at boot; however this is not default behavior.
-listenDevices :: SysClient -> IO ()
+listenDevices :: MonadUnliftIO m => SysClient -> m ()
 listenDevices cl = do
   addMatch' memAdded driveInsertedSound addedHasDrive
   addMatch' memRemoved driveRemovedSound removedHasDrive
   where
-    addMatch' m p f =
+    addMatch' m p f = do
-      void $
+      let rule = ruleUdisks {matchMember = Just m}
-        addMatch (toClient cl) ruleUdisks {matchMember = Just m} $
+      void $ addMatchCallback rule (playSoundMaybe p . f) cl
-          playSoundMaybe p . f . signalBody
 
-runRemovableMon :: Maybe SysClient -> SometimesIO
+runRemovableMon :: MonadUnliftIO m => Maybe SysClient -> Sometimes (m ())
 runRemovableMon cl =
   sometimesDBus cl "removeable device monitor" "dbus monitor" deps $ io . listenDevices
   where