mirror of
https://github.com/roc-lang/roc.git
synced 2025-09-28 06:14:46 +00:00
15 lines
359 B
Text
15 lines
359 B
Text
app "closure1"
|
|
packages { base: "platform" }
|
|
imports [base.Task]
|
|
provides [ main ] to base
|
|
|
|
# see https://github.com/rtfeldman/roc/issues/985
|
|
|
|
main : Task.Task {} []
|
|
main =
|
|
Task.succeed (foo toUnitBorrowed "a long string such that it's malloced")
|
|
|> Task.map (\_ -> {})
|
|
|
|
toUnitBorrowed = \x -> Str.countGraphemes x
|
|
|
|
foo = \f, x -> f x
|