Wasm code events

.changelog/unreleased/improvements/4690-wasm-name-lookups.md

@@ -0,0 +1 @@
+- Indexers fail to identify the types of older txs since these types use wasm hashes. If those hashes were overwritten by governance proposals, the indexer is unable to determine how to deserialize these txs. This PR adds a new key to storage which allows looking up a tx type from a wasm hash, even if that hash is of code no longer in use. ([\#4690](https://github.com/anoma/namada/pull/4690))

.changelog/unreleased/improvements/4691-wasm-code-events.md

@@ -0,0 +1 @@
+ -  For each inner tx, an event is emitted giving the human readable wasm name of the code contained in said tx.([\#4691](https://github.com/anoma/namada/pull/4691))

crates/core/src/storage.rs

@@ -551,7 +551,7 @@ impl Key {
     }
 
     /// Returns a key of wasm code's hash of the given name
-    pub fn wasm_code_name(code_name: String) -> Self {
+    pub fn wasm_code_hash(code_name: String) -> Self {
         let mut segments =
             Self::from(PARAMETERS.to_owned().to_db_key()).segments;
         segments.push(DbKeySeg::StringSeg(WASM_KEY_PREFIX.to_owned()));
@@ -580,6 +580,16 @@ impl Key {
         Key { segments }
     }
 
+    /// Returns a key of the wasm name of the given code hash
+    pub fn wasm_code_name(code_hash: &Hash) -> Self {
+        let mut segments =
+            Self::from(PARAMETERS.to_owned().to_db_key()).segments;
+        segments.push(DbKeySeg::StringSeg(WASM_KEY_PREFIX.to_owned()));
+        segments.push(DbKeySeg::StringSeg(WASM_HASH_PREFIX.to_owned()));
+        segments.push(DbKeySeg::StringSeg(code_hash.to_string()));
+        Key { segments }
+    }
+
     /// Returns a key of the validity predicate of the given address
     /// Only this function can push "?" segment for validity predicate
     pub fn validity_predicate(addr: &Address) -> Self {

crates/events/src/extend.rs

@@ -493,6 +493,20 @@ impl EventAttributeEntry<'static> for Height {
     }
 }
 
+/// Extend an [`Event`] with the name of the wasm code.
+pub struct CodeName(pub String);
+
+impl EventAttributeEntry<'static> for CodeName {
+    type Value = String;
+    type ValueOwned = Self::Value;
+
+    const KEY: &'static str = "code-name";
+
+    fn into_value(self) -> Self::Value {
+        self.0
+    }
+}
+
 /// Extend an [`Event`] with transaction hash information.
 pub struct TxHash(pub Hash);
 

crates/migrations/src/foreign_types.rs

@@ -8,6 +8,7 @@ use namada_macros::derive_typehash;
 
 use crate::TypeHash;
 
+derive_typehash!(String);
 derive_typehash!(Vec::<u8>);
 derive_typehash!(Vec::<String>);
 derive_typehash!(u64);