FIX name/arg typo

This commit is contained in:
Nathan Dwarshuis 2021-11-27 01:06:49 -05:00
parent fd37220005
commit b9ede93e98
3 changed files with 9 additions and 9 deletions

View File

@ -129,9 +129,10 @@ emitBrightness BrightnessConfig{ bcPath = p, bcInterface = i } client cur =
sig = signal p i memCur
callBacklight :: Maybe Client -> BrightnessConfig a b -> String -> MemberName -> FeatureIO
callBacklight client BrightnessConfig { bcPath = p, bcInterface = i, bcName = n } controlName m =
(featureEndpoint xmonadBusName p i m client)
{ ftrName = unwords [n, controlName] }
callBacklight client BrightnessConfig { bcPath = p
, bcInterface = i
, bcName = n } controlName m =
featureEndpoint (unwords [n, controlName]) xmonadBusName p i m client
bodyGetBrightness :: Num a => [Variant] -> Maybe a
bodyGetBrightness [b] = fromIntegral <$> (fromVariant b :: Maybe Int32)

View File

@ -121,9 +121,8 @@ exportScreensaver client = Feature
}
callToggle :: Maybe Client -> FeatureIO
callToggle client =
(featureEndpoint xmonadBusName ssPath interface memToggle client)
{ ftrName = "screensaver toggle" }
callToggle =
featureEndpoint "screensaver toggle" xmonadBusName ssPath interface memToggle
callQuery :: Client -> IO (Maybe SSState)
callQuery client = do

View File

@ -105,11 +105,11 @@ featureExeArgs :: MonadIO m => String -> String -> [String] -> Feature (m ())
featureExeArgs n cmd args =
featureDefault n [Executable cmd] $ spawnCmd cmd args
featureEndpoint :: BusName -> ObjectPath -> InterfaceName -> MemberName
featureEndpoint :: String -> BusName -> ObjectPath -> InterfaceName -> MemberName
-> Maybe Client -> FeatureIO
featureEndpoint busname path iface mem client = Feature
featureEndpoint name busname path iface mem client = Feature
{ ftrDepTree = DBusTree (Single cmd) client deps []
, ftrName = "screensaver toggle"
, ftrName = name
, ftrWarning = Default
}
where