language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-30 23:31:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

add other effect functions

Browse source
This commit is contained in:
Folkert 2020-12-11 20:46:46 +01:00
parent 539f173472
commit f1b4d535c6
4 changed files with 38 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

25
compiler/mono/src/ir.rs
View file

@ -4749,10 +4749,33 @@ fn reuse_function_symbol<'a>(
) -> Stmt<'a> {
match procs.partial_procs.get(&original) {
None => {
let is_imported =
!(env.home == original.module_id() || original.module_id() == ModuleId::ATTR);
match arg_var {
Some(arg_var) if is_imported => {
let layout = layout_cache
.from_var(env.arena, arg_var, env.subs)
.expect("creating layout does not fail");
procs.insert_passed_by_name(
env,
arg_var,
original,
layout.clone(),
layout_cache,
);
}
_ => {
// danger: a foreign symbol may not be specialized!
debug_assert!(
env.home == original.module_id() || original.module_id() == ModuleId::ATTR
!is_imported,
"symbol {:?} while processing module {:?}",
original,
(env.home, &arg_var),
);
}
}
result
}

3
examples/effect/Main.roc
View file

@ -5,5 +5,4 @@ app "effect-example"
main : Task.Task {} F64
main =
# Task.after (Task.always "foo") (\_ -> Task.always {})
Task.after (Task.putLine "foo") \{} -> Task.putLine "bar"
Task.after (Task.getLine {}) \lineThisThing -> Task.putLine lineThisThing

15
examples/effect/thing/platform-dir/Pkg-Config.roc
View file

@ -2,20 +2,15 @@ platform folkertdev/foo
requires { main : Effect {} }
exposes []
packages {}
imports []
imports [Task]
provides [ mainForHost ]
effects Effect
{
putLine : Str -> Effect {}
putChar : I64 -> Effect {},
putLine : Str -> Effect {},
getLine : {} -> Effect Str
}
# putChar : I64 -> Effect {},
# getLine : Effect Str
Effect a : [ Effect ({} -> a) ]
Task a err : Effect (Result a err)
mainForHost : Task {} F64 as Fx
mainForHost : Task.Task {} F64 as Fx
mainForHost = main

5
examples/effect/thing/platform-dir/Task.roc
View file

@ -1,5 +1,5 @@
interface Task
exposes [ Task, after, always, fail, putLine, map ]
exposes [ Task, after, always, fail, map, putLine, getLine ]
imports [ Effect ]
Task a err : Effect.Effect (Result a err)
@ -10,6 +10,9 @@ always = \x -> Effect.always (Ok x)
fail : err -> Task * err
fail = \x -> Effect.always (Err x)
getLine : {} -> Task Str *
getLine = \{} -> Effect.after (Effect.getLine {}) always
putLine : Str -> Task {} *
putLine = \line -> Effect.map (Effect.putLine line) (\_ -> Ok {})