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

Remove private tags from Ast

Browse source
This commit is contained in:
Ayaz Hafiz 2022-04-25 11:20:37 -04:00
parent 67eb4b9faa
commit 1ed9cf551a
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
16 changed files with 12 additions and 196 deletions
Download patch file Download diff file Expand all files Collapse all files

18
repl_eval/src/eval.rs
View file

@ -475,11 +475,7 @@ fn tag_name_to_expr<'a>(env: &Env<'a, '_>, tag_name: &TagName) -> Expr<'a> {
env.arena
.alloc_str(&tag_name.as_ident_str(env.interns, env.home)),
),
TagName::Private(_) => Expr::PrivateTag(
env.arena
.alloc_str(&tag_name.as_ident_str(env.interns, env.home)),
),
TagName::Closure(_) => unreachable!("User cannot type this"),
TagName::Private(_) | TagName::Closure(_) => unreachable!("User cannot type this"),
}
}
@ -1052,11 +1048,7 @@ fn bool_to_ast<'a, M: ReplAppMemory>(
let loc_tag_expr = {
let tag_name = &tag_name.as_ident_str(env.interns, env.home);
let tag_expr = if tag_name.starts_with('@') {
Expr::PrivateTag(arena.alloc_str(tag_name))
} else {
Expr::GlobalTag(arena.alloc_str(tag_name))
};
let tag_expr = Expr::GlobalTag(arena.alloc_str(tag_name));
&*arena.alloc(Loc {
value: tag_expr,
@ -1135,11 +1127,7 @@ fn byte_to_ast<'a, M: ReplAppMemory>(
let loc_tag_expr = {
let tag_name = &tag_name.as_ident_str(env.interns, env.home);
let tag_expr = if tag_name.starts_with('@') {
Expr::PrivateTag(arena.alloc_str(tag_name))
} else {
Expr::GlobalTag(arena.alloc_str(tag_name))
};
let tag_expr = Expr::GlobalTag(arena.alloc_str(tag_name));
&*arena.alloc(Loc {
value: tag_expr,