REF reformat

2022-12-30 17:15:50 -05:00 · 2022-12-30 17:15:50 -05:00 · 98358983de
parent b9a10df606
commit 98358983de
1 changed files with 5 additions and 1 deletions
--- a/lib/XMonad/Internal/DBus/Brightness/Common.hs
+++ b/lib/XMonad/Internal/DBus/Brightness/Common.hs
@ -114,7 +114,11 @@ brightnessExporter q ful deps bc@BrightnessConfig {bcName = n} cl =
    root = DBusRoot_ (exportBrightnessControls' bc) tree cl
    tree = listToAnds (Bus ful xmonadBusName) $ fmap DBusIO deps

-exportBrightnessControls' :: RealFrac b => BrightnessConfig a b -> SesClient -> FIO ()
+exportBrightnessControls'
+  :: (MonadUnliftIO m, RealFrac b)
+  => BrightnessConfig a b
+  -> SesClient
+  -> m ()
 exportBrightnessControls' bc cl = io $ do
  let ses = toClient cl
  maxval <- bcGetMax bc -- assume the max value will never change