getIdentitiesMethod :: Method
getIdentitiesMethod  =
    DBus.Method
    (DBus.repMethod $ (getIdentities :: IO [KeyID] ))
    "getIdentities"
    Done
    ("identities" -- ^ List of keyIDs
     :> Done)
getIdentitiesMethod :: Method
getIdentitiesMethod  =
    DBus.Method
    (DBus.repMethod $ (getIdentities :: IO [KeyID] ))
    "getIdentities"
    Done
    ("identities" -- ^ List of keyIDs
     :> Done)
getIdentitiesMethod  =
    DBus.Method
    (DBus.repMethod $ (getIdentities :: IO [KeyID] ))
    "getIdentities"
    Done
    ("identities" -- ^ List of keyIDs
     :> Done)