Add a helper method to construct a CardUploadableKey from a ValidErasedKeyAmalgamation

openpgp-card-sequoia/src/lib.rs

@@ -58,6 +58,14 @@ impl SequoiaKey {
     }
 }
 
+pub fn vka_as_uploadable_key(
+    vka: ValidErasedKeyAmalgamation<SecretParts>,
+    password: Option<String>,
+) -> Box<dyn CardUploadableKey> {
+    let sqk = SequoiaKey::new(vka, password);
+    Box::new(sqk)
+}
+
 /// Implement the `CardUploadableKey` trait that openpgp-card uses to
 /// upload (sub)keys to a card.
 impl CardUploadableKey for SequoiaKey {