Pass cli arguments to main required by cli platform

examples/interactive/cli-platform/main.roc

@@ -1,9 +1,9 @@
 platform "cli"
-    requires {} { main : Task {} [] * }
+    requires {} { main : List Str -> Task {} [] * }
     exposes []
     packages {}
     imports [Task.{ Task }, InternalTask, Effect.{ Effect }]
     provides [mainForHost]
 
-mainForHost : Effect (Result {} []) as Fx
-mainForHost = InternalTask.toEffect main
+mainForHost : List Str -> (Effect (Result {} []) as Fx)
+mainForHost = \args -> InternalTask.toEffect (main args)

examples/interactive/cli-platform/src/lib.rs

@@ -20,7 +20,7 @@ use file_glue::WriteErr;
 
 extern "C" {
     #[link_name = "roc__mainForHost_1_exposed_generic"]
-    fn roc_main(output: *mut u8);
+    fn roc_main(output: *mut u8, args: RocList<RocStr>);
 
     #[link_name = "roc__mainForHost_size"]
     fn roc_main_size() -> i64;
@@ -84,11 +84,14 @@ pub extern "C" fn rust_main() -> i32 {
     let size = unsafe { roc_main_size() } as usize;
     let layout = Layout::array::<u8>(size).unwrap();
 
+    // TODO: can we be more efficient about reusing the String's memory for RocStr?
+    let args: RocList<RocStr> = std::env::args().map(|s| RocStr::from(s.as_str())).collect();
+
     unsafe {
         // TODO allocate on the stack if it's under a certain size
         let buffer = std::alloc::alloc(layout);
 
-        roc_main(buffer);
+        roc_main(buffer, args);
 
         let result = call_the_closure(buffer);
 

examples/interactive/countdown.roc

@@ -3,7 +3,7 @@ app "countdown"
     imports [pf.Stdin, pf.Stdout, pf.Task.{ await, loop, succeed }]
     provides [main] to pf
 
-main =
+main = \_args ->
     _ <- await (Stdout.line "\nLet's count down from 10 together - all you have to do is press <ENTER>.")
     _ <- await Stdin.line
     loop 10 tick

examples/interactive/echo.roc

@@ -3,8 +3,8 @@ app "echo"
     imports [pf.Stdin, pf.Stdout, pf.Task]
     provides [main] to pf
 
-main : Task.Task {} [] [Read [Stdin], Write [Stdout]]
-main =
+main : List Str -> Task.Task {} [] [Read [Stdin], Write [Stdout]]
+main = \_args ->
     _ <- Task.await (Stdout.line "🗣  Shout into this cave and hear the echo! 👂👂👂")
     Task.loop {} (\_ -> Task.map tick Step)
 

examples/interactive/form.roc

@@ -3,8 +3,8 @@ app "form"
     imports [pf.Stdin, pf.Stdout, pf.Task.{ await, Task }]
     provides [main] to pf
 
-main : Task {} * [Read [Stdin], Write [Stdout]]
-main =
+main : List Str -> Task {} * [Read [Stdin], Write [Stdout]]
+main = \_args ->
     _ <- await (Stdout.line "What's your first name?")
     firstName <- await Stdin.line
     _ <- await (Stdout.line "What's your last name?")

examples/interactive/http-get.roc

@@ -3,8 +3,8 @@ app "http-get"
     imports [pf.Http, pf.Task, pf.Stdin, pf.Stdout]
     provides [main] to pf
 
-main : Task.Task {} [] [Read [Stdin], Write [Stdout], Network [Http]]
-main =
+main : List Str -> Task.Task {} [] [Read [Stdin], Write [Stdout], Network [Http]]
+main = \_args ->
     _ <- Task.await (Stdout.line "Please enter a URL to fetch")
 
     url <- Task.await Stdin.line