language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-29 14:54:47 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

fix record accessors

Browse source
This commit is contained in:
Folkert 2021-05-14 13:07:35 +02:00
parent 80423bac76
commit a055fa3626
3 changed files with 30 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

26
compiler/mono/src/ir.rs
View file

@ -3652,9 +3652,10 @@ pub fn with_hole<'a>(
}
Accessor {
name,
function_var,
record_var,
closure_var: _,
closure_ext_var: _,
ext_var,
field_var,
field,
@ -3677,8 +3678,6 @@ pub fn with_hole<'a>(
let loc_body = Located::at_zero(body);
let name = env.unique_symbol();
let arguments = vec![(
record_var,
Located::at_zero(roc_can::pattern::Pattern::Identifier(record_symbol)),
@ -3694,15 +3693,18 @@ pub fn with_hole<'a>(
field_var,
layout_cache,
) {
Ok(layout) => {
todo!()
// TODO should the let have layout Pointer?
// Stmt::Let(
// assigned,
// call_by_pointer(env, procs, name, layout),
// layout,
// hole,
// )
Ok(_) => {
let full_layout = return_on_layout_error!(
env,
layout_cache.from_var(env.arena, function_var, env.subs)
);
match full_layout {
Layout::Closure(_, lambda_set, _) => {
construct_closure_data(env, lambda_set, name, &[], assigned, hole)
}
_ => unreachable!(),
}
}
Err(_error) => Stmt::RuntimeError(