diff --git a/src/v1/stage0/src/v1_compiler_infer.rs b/src/v1/stage0/src/v1_compiler_infer.rs index e165ab61aa5..22d7898d89c 100644 --- a/src/v1/stage0/src/v1_compiler_infer.rs +++ b/src/v1/stage0/src/v1_compiler_infer.rs @@ -4781,27 +4781,31 @@ pub fn nominal_product_head_name_if_declared_product( name: String, scope: Rc, ) -> String { - let representative = - transparent_alias_representative(scope.type_env.clone().symbol_index.clone(), name.clone()); - match crate::v1_compiler_infer_env::lookup_type_by_name( - scope.type_env.clone(), - representative.clone(), - ) { - Some(decl) => { - let peeled = crate::v1_compiler_infer_resolve::peel_nominal_alias_identity( - decl.clone(), - scope.type_env.clone(), - scope.module_name.clone(), - ); - if ((peeled.connective.clone() == Connective::Conj) - && ((peeled.children.clone().len() as i64) > 0)) - { - name.clone() - } else { - "".to_string() + { + let representative = transparent_alias_representative( + scope.type_env.clone().symbol_index.clone(), + name.clone(), + ); + match crate::v1_compiler_infer_env::lookup_type_by_name( + scope.type_env.clone(), + representative.clone(), + ) { + Some(decl) => { + let peeled = crate::v1_compiler_infer_resolve::peel_nominal_alias_identity( + decl.clone(), + scope.type_env.clone(), + scope.module_name.clone(), + ); + if ((peeled.connective.clone() == Connective::Conj) + && ((peeled.children.clone().len() as i64) > 0)) + { + name.clone() + } else { + "".to_string() + } } + std::option::Option::None => "".to_string(), } - std::option::Option::None => "".to_string(), } } diff --git a/src/v2/workflow/floor_expected_red.dag b/src/v2/workflow/floor_expected_red.dag index 8e2d964c0c9..f07a0e9955c 100644 --- a/src/v2/workflow/floor_expected_red.dag +++ b/src/v2/workflow/floor_expected_red.dag @@ -1086,7 +1086,19 @@ fn floor_expected_red_chunk_interpreter_first_optional_divergence() -> List hole, which differs at the MIDDLE argument, stayed open. One comparing @@ -1110,7 +1122,7 @@ fn floor_expected_red_chunk_24() -> List { tail: Cons { head: "test.claim.declared_type_expected_type_path_witness.w_a_different_application_head_at_a_declared_return_is_refused", tail: Cons { head: "test.claim.declared_type_expected_type_path_witness.w_a_wrong_last_type_argument_at_a_declared_return_is_refused", tail: Cons { head: "test.claim.declared_type_expected_type_path_witness.w_a_wrong_nested_type_argument_at_a_declared_return_is_refused", - tail: Cons { head: "test.claim.declared_type_expected_type_path_witness.w_a_different_plain_record_at_a_declared_return_is_refused", tail: Empty {} } } } } } } } + tail: Empty {} } } } } } } } fn floor_expected_red_chunk_live_tree_admission() -> List {