language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-11-02 22:01:20 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Support specialization of naked tag unions at toplevel

Browse source
This commit is contained in:
Ayaz Hafiz 2022-07-08 17:50:52 -04:00
parent 507e1e5add
commit 532b2ff403
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
4 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
crates/compiler/mono/src/ir.rs
View file

@ -3790,14 +3790,14 @@ pub fn with_hole<'a>(
}
ZeroArgumentTag {
variant_var,
variant_var: _,
name: tag_name,
ext_var,
closure_name,
} => {
let arena = env.arena;
let content = env.subs.get_content_without_compacting(variant_var);
let content = env.subs.get_content_without_compacting(variable);
if let Content::Structure(FlatType::Func(arg_vars, _, ret_var)) = content {
let ret_var = *ret_var;
@ -3811,7 +3811,7 @@ pub fn with_hole<'a>(
closure_name,
ext_var,
procs,
variant_var,
variable,
layout_cache,
assigned,
hole,
@ -3819,7 +3819,7 @@ pub fn with_hole<'a>(
} else {
convert_tag_union(
env,
variant_var,
variable,
assigned,
hole,
tag_name,
@ -6073,7 +6073,7 @@ fn from_can_when<'a>(
let guard_stmt = with_hole(
env,
loc_expr.value,
cond_var,
Variable::BOOL,
procs,
layout_cache,
symbol,