Fix: additional tipo case when using Pairs type inside of a redeemer or datum type

crates/aiken-lang/src/tipo.rs

@@ -719,7 +719,14 @@ pub fn get_arg_type_name(tipo: &Type) -> String {
             let inner_args = elems.iter().map(|arg| get_arg_type_name(arg)).collect_vec();
             inner_args.join("_")
         }
-        _ => unreachable!(),
+        Type::Pair { fst, snd, .. } => {
+            let inner_args = [fst, snd]
+                .iter()
+                .map(|arg| get_arg_type_name(arg))
+                .collect_vec();
+            inner_args.join("_")
+        }
+        _ => unreachable!("WTF {:#?}", tipo),
     }
 }
 

examples/acceptance_tests/119/aiken.toml

@@ -0,0 +1,19 @@
+name = "aiken-lang/104"
+version = "0.0.0"
+license = "Apache-2.0"
+description = "Aiken contracts for project 'aiken-lang/104'"
+
+[repository]
+user = "aiken-lang"
+project = "104"
+platform = "github"
+
+[[dependencies]]
+name = "aiken-lang/stdlib"
+version = "main"
+source = "github"
+
+[[dependencies]]
+name = "aiken-lang/fuzz"
+version = "main"
+source = "github"

examples/acceptance_tests/119/validators/tests.ak

@@ -0,0 +1,12 @@
+pub type Thing =
+  Option<Pairs<ByteArray, Pairs<ByteArray, Int>>>
+
+validator foo_3 {
+  mint(redeemer: Thing, _policy_, _tx) {
+    redeemer == redeemer
+  }
+
+  else(_) {
+    fail
+  }
+}