FIX name/arg typo
This commit is contained in:
parent
fd37220005
commit
b9ede93e98
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue