language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-23 14:35:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Constraining of list patterns

Browse source
This commit is contained in:
Ayaz Hafiz 2022-10-31 12:15:21 -05:00
parent 7b87d0093e
commit 9ab5d0efb8
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
4 changed files with 67 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

42
crates/compiler/constrain/src/pattern.rs
View file

@ -3,7 +3,7 @@ use crate::expr::{constrain_expr, Env};
use roc_can::constraint::{Constraint, Constraints};
use roc_can::expected::{Expected, PExpected};
use roc_can::pattern::Pattern::{self, *};
use roc_can::pattern::{DestructType, RecordDestruct};
use roc_can::pattern::{DestructType, ListPatterns, RecordDestruct};
use roc_collections::all::{HumanIndex, SendMap};
use roc_collections::VecMap;
use roc_module::ident::Lowercase;
@ -513,12 +513,46 @@ pub fn constrain_pattern(
List {
list_var,
elem_var,
patterns: _,
patterns:
ListPatterns {
patterns,
opt_rest: _,
},
} => {
for loc_pat in patterns.iter() {
let expected =
PExpected::ForReason(PReason::ListElem, Type::Variable(*elem_var), region);
constrain_pattern(
constraints,
env,
&loc_pat.value,
loc_pat.region,
expected,
state,
);
}
let list_var_index = constraints.push_type(Type::Variable(*list_var));
let solved_list = constraints.push_type(Type::Apply(
Symbol::LIST_LIST,
vec![Loc::at(region, Type::Variable(*elem_var))],
region,
));
let store_solved_list = constraints.store(solved_list, *list_var, file!(), line!());
let expected = constraints.push_pat_expected_type(expected);
let expected_constraint = constraints.pattern_presence(
list_var_index,
expected,
PatternCategory::List,
region,
);
state.vars.push(*list_var);
state.vars.push(*elem_var);
todo!();
state.constraints.push(store_solved_list);
state.constraints.push(expected_constraint);
}
AppliedTag {