roc/examples/benchmarks/Closure2.roc
2021-02-16 23:20:30 +01:00

15 lines
327 B
Text

app "closure2"
packages { base: "platform" }
imports [base.Task]
provides [ main ] to base
# see https://github.com/rtfeldman/roc/issues/985
main : Task.Task {} []
main =
x : Str
x = "a long string such that it's malloced"
Task.succeed {}
|> Task.map (\_ -> x)
|> Task.map (\_ -> {})