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

ENH use rio for xmobar plugins

This commit is contained in:
Nathan Dwarshuis 2022-12-31 22:22:36 -05:00
parent 39bd464ca1
commit f6c0596716
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Xmobar/Plugins/BacklightCommon.hs
View File

@ -13,8 +13,8 @@ import Xmobar.Plugins.Common
startBacklight startBacklight
:: (MonadUnliftIO m, RealFrac a) :: (MonadUnliftIO m, RealFrac a)
=> ((Maybe a -> m ()) -> SesClient -> m ()) => ((Maybe a -> RIO SimpleApp ()) -> SesClient -> RIO SimpleApp ())
-> (SesClient -> m (Maybe a)) -> (SesClient -> RIO SimpleApp (Maybe a))
-> T.Text -> T.Text
-> Callback -> Callback
-> m () -> m ()

4
lib/Xmobar/Plugins/Common.hs
View File

@ -70,6 +70,6 @@ displayMaybe' cb = maybe (liftIO $ cb $ T.unpack na)
withDBusClientConnection withDBusClientConnection
:: (MonadUnliftIO m, SafeClient c) :: (MonadUnliftIO m, SafeClient c)
=> Callback => Callback
-> (c -> m ()) -> (c -> RIO SimpleApp ())
-> m () -> m ()
withDBusClientConnection cb f = displayMaybe' cb f =<< getDBusClient withDBusClientConnection cb f = runSimpleApp $ displayMaybe' cb f =<< getDBusClient