Use Variable::U64 for List.len in file load

This commit is contained in:
Richard Feldman 2024-01-22 23:47:27 -05:00
parent 4a38d3a1af
commit e207a7ce53
No known key found for this signature in database
GPG key ID: F1F21AA5B1D9E43B

View file

@ -4664,7 +4664,7 @@ fn synth_import(subs: &mut Subs, content: roc_types::subs::Content) -> Variable
fn synth_list_len_type(subs: &mut Subs) -> Variable { fn synth_list_len_type(subs: &mut Subs) -> Variable {
use roc_types::subs::{Content, FlatType, LambdaSet, OptVariable, SubsSlice, UnionLabels}; use roc_types::subs::{Content, FlatType, LambdaSet, OptVariable, SubsSlice, UnionLabels};
// List.len : List a -> Nat // List.len : List a -> U64
let a = synth_import(subs, Content::FlexVar(None)); let a = synth_import(subs, Content::FlexVar(None));
let a_slice = SubsSlice::extend_new(&mut subs.variables, [a]); let a_slice = SubsSlice::extend_new(&mut subs.variables, [a]);
let list_a = synth_import( let list_a = synth_import(
@ -4685,7 +4685,7 @@ fn synth_list_len_type(subs: &mut Subs) -> Variable {
let fn_args_slice = SubsSlice::extend_new(&mut subs.variables, [list_a]); let fn_args_slice = SubsSlice::extend_new(&mut subs.variables, [list_a]);
subs.set_content( subs.set_content(
fn_var, fn_var,
Content::Structure(FlatType::Func(fn_args_slice, clos_list_len, Variable::NAT)), Content::Structure(FlatType::Func(fn_args_slice, clos_list_len, Variable::U64)),
); );
fn_var fn_var
} }