mirror of
https://github.com/roc-lang/roc.git
synced 2025-10-03 00:24:34 +00:00
parent
32814cbb37
commit
7306e131b9
1 changed files with 21 additions and 0 deletions
|
@ -6384,4 +6384,25 @@ mod solve_expr {
|
||||||
],
|
],
|
||||||
)
|
)
|
||||||
}
|
}
|
||||||
|
|
||||||
|
#[test]
|
||||||
|
fn task_wildcard_wildcard() {
|
||||||
|
infer_eq_without_problem(
|
||||||
|
indoc!(
|
||||||
|
r#"
|
||||||
|
app "test" provides [ tforever ] to "./platform"
|
||||||
|
|
||||||
|
Effect a := {} -> a
|
||||||
|
|
||||||
|
eforever : Effect a -> Effect b
|
||||||
|
|
||||||
|
Task a err : Effect (Result a err)
|
||||||
|
|
||||||
|
tforever : Task val err -> Task * *
|
||||||
|
tforever = \task -> eforever task
|
||||||
|
"#
|
||||||
|
),
|
||||||
|
"Task val err -> Task * *",
|
||||||
|
);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue