mirror of
https://github.com/roc-lang/roc.git
synced 2025-08-04 12:18:19 +00:00
14 lines
292 B
Text
14 lines
292 B
Text
app "test" provides [main] to "./platform"
|
|
|
|
input : [A Str, B Str]
|
|
input = A "foo"
|
|
|
|
drop : a -> {}
|
|
drop = \_ -> {}
|
|
|
|
main = when input is
|
|
# ^^^^^ [A Str, B Str]
|
|
A _ as a -> drop a
|
|
# ^ [A Str, B Str]
|
|
B _ as b -> drop b
|
|
# ^ [A Str, B Str]
|