language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-28 14:24:45 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

special-case the closure tags

Browse source
This commit is contained in:
Folkert 2021-11-24 21:14:58 +01:00
parent 3e640f78bf
commit cb8e9acb92
4 changed files with 45 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

11
compiler/constrain/src/expr.rs
View file

@ -739,11 +739,10 @@ pub fn constrain_expr(
region,
);
let ext = Type::Variable(*closure_var);
let lambda_set = Type::TagUnion(
vec![(TagName::Closure(*closure_name), vec![])],
Box::new(ext),
);
let lambda_set = Type::ClosureTag {
name: *closure_name,
ext: *closure_var,
};
let function_type = Type::Function(
vec![record_type],
@ -1416,7 +1415,7 @@ fn constrain_closure_size(
));
}
let tag_name = roc_module::ident::TagName::Closure(name);
let tag_name = TagName::Closure(name);
let closure_type = Type::TagUnion(
vec![(tag_name, tag_arguments)],
Box::new(Type::Variable(closure_ext_var)),