ENH generalize screensaver

lib/XMonad/Internal/DBus/Screensaver.hs

@@ -82,8 +82,9 @@ ruleCurrentState =
     , matchMember = Just memState
     }
 
-emitState :: Client -> SSState -> IO ()
+emitState :: MonadUnliftIO m => Client -> SSState -> m ()
-emitState client sss = emit client $ sigCurrentState {signalBody = [toVariant sss]}
+emitState client sss =
+  liftIO $ emit client $ sigCurrentState {signalBody = [toVariant sss]}
 
 bodyGetCurrentState :: [Variant] -> Maybe SSState
 bodyGetCurrentState [b] = fromVariant b :: Maybe SSState
@@ -105,7 +106,7 @@ exportScreensaver ses =
               defaultInterface
                 { interfaceName = interface
                 , interfaceMethods =
-                    [ autoMethod memToggle $ emitState cl' =<< toggle
+                    [ autoMethod memToggle $ run $ emitState cl' =<< toggle
                     , autoMethod memQuery (run query)
                     ]
                 , interfaceSignals = [sig]
@@ -134,12 +135,12 @@ callToggle =
     interface
     memToggle
 
-callQuery :: SesClient -> IO (Maybe SSState)
+callQuery :: MonadUnliftIO m => SesClient -> m (Maybe SSState)
 callQuery ses = do
   reply <- callMethod ses xmonadBusName ssPath interface memQuery
   return $ either (const Nothing) bodyGetCurrentState reply
 
-matchSignal :: (Maybe SSState -> IO ()) -> SesClient -> IO ()
+matchSignal :: MonadUnliftIO m => (Maybe SSState -> m ()) -> SesClient -> m ()
 matchSignal cb ses =
   void $
     addMatchCallback