mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

When listing DBus services, also list activatable services.

Browse source
This commit is contained in:
Sebastian Reuße 2015-06-02 15:58:48 +02:00 • committed by Joey Hess
parent 2d7e11cd3e
commit ef0e3ac22e
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Utility/DBus.hs
View file

@ -22,8 +22,14 @@ type ServiceName = String
listServiceNames :: Client -> IO [ServiceName] listServiceNames :: Client -> IO [ServiceName]
listServiceNames client = do listServiceNames client = do
reply <- callDBus client "ListNames" [] active <- do
return $ fromMaybe [] $ fromVariant =<< headMaybe (methodReturnBody reply) reply <- callDBus client "ListNames" []
return $ fromVariant =<< headMaybe (methodReturnBody reply)
activatable <- do
reply <- callDBus client "ListActivatableNames" []
return $ fromVariant =<< headMaybe (methodReturnBody reply)
let service_names = fromMaybe [] active ++ fromMaybe [] activatable
return service_names
callDBus :: Client -> MemberName -> [Variant] -> IO MethodReturn callDBus :: Client -> MemberName -> [Variant] -> IO MethodReturn
callDBus client name params = call_ client $ callDBus client name params = call_ client $