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

fix map

Browse source
This commit is contained in:
Folkert 2020-06-22 23:48:37 +02:00
parent 0fbac382d0
commit 2a7bf2ae66
2 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
compiler/builtins/src/unique.rs
View file

@ -696,20 +696,30 @@ pub fn types() -> MutMap<Symbol, (SolvedType, Region)> {
)
});
// map : Attr * (List a)
// , Attr Shared (a -> b)
// map : Attr (* | u) (List (Attr u a))
// , Attr Shared (Attr u a -> b)
// -> Attr * (List b)
add_type(Symbol::LIST_MAP, {
let u = tvar!();
let a = tvar!();
let b = tvar!();
let star1 = tvar!();
let star2 = tvar!();
unique_function(
vec![
list_type(star1, a),
SolvedType::Apply(
Symbol::ATTR_ATTR,
vec![shared(), SolvedType::Func(vec![flex(a)], Box::new(flex(b)))],
vec![
container(star1, vec![u]),
SolvedType::Apply(Symbol::LIST_LIST, vec![attr_type(u, a)]),
],
),
SolvedType::Apply(
Symbol::ATTR_ATTR,
vec![
shared(),
SolvedType::Func(vec![attr_type(u, a)], Box::new(flex(b))),
],
),
],
list_type(star2, b),