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

don't generate Store with no stores

Browse source
This commit is contained in:
Folkert 2020-03-26 15:11:40 +01:00
parent ad23fc7e4b
commit c202cf3e6b
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
compiler/mono/src/expr.rs
View file

@ -376,7 +376,6 @@ fn from_can<'a>(
name: Option<Symbol>, name: Option<Symbol>,
) -> Expr<'a> { ) -> Expr<'a> {
use roc_can::expr::Expr::*; use roc_can::expr::Expr::*;
use roc_can::pattern::Pattern::*;
match can_expr { match can_expr {
Num(var, num) => match to_int_or_float(env.subs, var) { Num(var, num) => match to_int_or_float(env.subs, var) {
@ -1002,7 +1001,11 @@ fn from_can_defs<'a>(
// Extract Procs from the def body and the ret expression, and return the result! // Extract Procs from the def body and the ret expression, and return the result!
let ret = from_can(env, ret_expr.value, procs, None); let ret = from_can(env, ret_expr.value, procs, None);
Expr::Store(stored.into_bump_slice(), arena.alloc(ret)) if stored.is_empty() {
ret
} else {
Expr::Store(stored.into_bump_slice(), arena.alloc(ret))
}
} }
fn from_can_when<'a>( fn from_can_when<'a>(