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

not so fast

Browse source
This commit is contained in:
Folkert 2021-07-21 22:17:53 +02:00
parent 564efd528a
commit 6ab90cd15d
2 changed files with 14 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
compiler/types/src/pretty_print.rs
View file

@ -585,7 +585,7 @@ pub fn chase_ext_tag_union(
fields: &mut Vec<(TagName, Vec<Variable>)>,
) -> Result<(), (Variable, Content)> {
use FlatType::*;
match subs.get_without_compacting(var).content {
match subs.get_content_without_compacting(var) {
Content::Structure(EmptyTagUnion) => Ok(()),
Content::Structure(TagUnion(tags, ext_var))
| Content::Structure(RecursiveTagUnion(_, tags, ext_var)) => {
@ -593,16 +593,16 @@ pub fn chase_ext_tag_union(
fields.push((label.clone(), vars.to_vec()));
}
chase_ext_tag_union(subs, ext_var, fields)
chase_ext_tag_union(subs, *ext_var, fields)
}
Content::Structure(FunctionOrTagUnion(tag_name, _, ext_var)) => {
fields.push((tag_name, vec![]));
fields.push((tag_name.clone(), vec![]));
chase_ext_tag_union(subs, ext_var, fields)
chase_ext_tag_union(subs, *ext_var, fields)
}
Content::Alias(_, _, var) => chase_ext_tag_union(subs, var, fields),
Content::Alias(_, _, var) => chase_ext_tag_union(subs, *var, fields),
content => Err((var, content)),
content => Err((var, content.clone())),
}
}