identityProp :: PSState -> Property ('DBusSimpleType 'TypeString)
identityProp st =
    mkProperty pontariusObjectPath pontariusInterface "Identity"
    (Just $ getSigningPgpKey st) Nothing
    PECSTrue
identityProp :: PSState -> Property ('DBusSimpleType 'TypeString)
identityProp st =
    mkProperty pontariusObjectPath pontariusInterface "Identity"
    (Just $ getSigningPgpKey st) Nothing
    PECSTrue
identityProp st =
    mkProperty pontariusObjectPath pontariusInterface "Identity"
    (Just $ getSigningPgpKey st) Nothing
    PECSTrue