Merge branch 'trunk' into dict-more

examples/benchmarks/Closure1.roc

@@ -0,0 +1,15 @@
+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

examples/benchmarks/Closure2.roc

@@ -0,0 +1,15 @@
+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 (\_ -> {})

examples/benchmarks/Closure3.roc

@@ -0,0 +1,15 @@
+app "closure3"
+    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.after (\_ -> Task.succeed x |> Task.map (\_ -> {}))
+        

examples/benchmarks/Closure4.roc

@@ -0,0 +1,16 @@
+app "closure4"
+    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.after (\_ -> Task.succeed x) 
+        |> Task.map (\_ -> {})
+        

examples/benchmarks/platform/Task.roc

@@ -24,10 +24,10 @@ after = \effect, transform ->
 
 map : Task a err, (a -> b) -> Task b err
 map = \effect, transform ->
-    Effect.after effect \result ->
+    Effect.map effect \result ->
         when result is
-            Ok a -> Task.succeed (transform a)
-            Err err -> Effect.always (Err err) # Task.fail err  does not work. WEIRD!
+            Ok a -> Ok (transform a)
+            Err err -> Err err 
 
 putLine : Str -> Task {} *
 putLine = \line -> Effect.map (Effect.putLine line) (\_ -> Ok {})