Upgrade http package and clean Roc style

Author: lukewilliamboswell

README.md

@@ -22,7 +22,7 @@ Run this example server with `$ roc examples/hello-web.roc` and go to `http://lo
 ```roc
 app [Model, program] {
     pf: platform "<latest release URL from https://github.com/roc-lang/basic-webserver/releases/latest>",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Http
@@ -34,20 +34,19 @@ Model : {}
 
 program = { init!, respond! }
 
-init! : {} => Try(Model, [Exit(I64), ..])
-init! = |{}| Ok({})
+init! : () => Try(Model, [Exit(I64), ..])
+init! = || Ok({})
 
 respond! : Http.Request, Model => Try(Http.Response, [ServerErr(Str), ..])
 respond! = |req, _model| {
-    millis = Utc.to_millis_since_epoch(Utc.now!({}))
+    millis = Utc.to_millis_since_epoch(Utc.now!())
 
-    _ =
-        Stdout.line!("${millis.to_str()} ${Str.inspect(req.method())} ${req.uri()}")
+    Stdout.line!("${millis.to_str()} ${Str.inspect(req.method())} ${req.uri()}")
         ? |err| ServerErr("Failed to log request: ${Str.inspect(err)}")
 
     response =
         Response.from_status(200)
-        .with_headers(Http.header_tuples([{ name: "Content-Type", value: "text/html; charset=utf-8" }]))
+        .with_headers([{ name: "Content-Type", value: "text/html; charset=utf-8" }])
         .with_body(Str.to_utf8("<b>Hello from server</b></br>"))
 
     Ok(response)

examples/command.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Http
@@ -28,13 +28,13 @@ init! = || {
             .args(["Hi"])
             .exec_output!()?
 
-        _ = Stdout.line!("${Str.inspect(cmd_output)}")
+        Stdout.line!("${Str.inspect(cmd_output)}")?
 
         # To run a command with environment variables.
         Cmd.new("env")
         .clear_envs() # You probably don't need to clear all other environment variables, this is just an example.
         .env("FOO", "BAR")
-        .envs([("BAZ", "DUCK"), ("XYZ", "ABC")]) # Set multiple environment variables at once with `envs`
+        .envs([{ name: "BAZ", value: "DUCK" }, { name: "XYZ", value: "ABC" }]) # Set multiple environment variables at once with `envs`
         .args(["-v"])
         .exec_cmd!()?
 
@@ -45,7 +45,7 @@ init! = || {
             .args(["non_existent.txt"])
             .exec_exit_code!()?
 
-        _ = Stdout.line!("Exit code: ${exit_code.to_str()}")
+        Stdout.line!("Exit code: ${exit_code.to_str()}")?
 
         # To execute and capture the output (stdout and stderr) in the original form as bytes without inheriting your terminal.
         # Prefer using `exec_output!`.
@@ -54,15 +54,15 @@ init! = || {
             .args(["Hi"])
             .exec_output_bytes!()?
 
-        _ = Stdout.line!("${Str.inspect(cmd_output_bytes)}")
+        Stdout.line!("${Str.inspect(cmd_output_bytes)}")?
 
         Ok({})
     }
 
     match result() {
         Ok(_) => Ok({})
         Err(err) => {
-            _ = Stderr.line!("Error running commands: ${Str.inspect(err)}")
+            Stderr.line!("Error running commands: ${Str.inspect(err)}") ?? {}
             Err(Exit(1))
         }
     }

examples/dir.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Stdout
@@ -31,25 +31,25 @@ init! = || {
         # List the contents of a directory
         paths = Dir.list!("nested-dir")?
 
-        paths_str = Str.join_with(List.map(paths, Path.display), ", ")
+        paths_str = Str.join_with(paths.map(Path.display), ", ")
 
-        _ = Stdout.line!("The paths in nested-dir are: ${paths_str}")
+        Stdout.line!("The paths in nested-dir are: ${paths_str}")?
 
         # Delete an empty directory
         Dir.delete_empty!("empty-dir")?
 
         # Delete all directories recursively
         Dir.delete_all!("nested-dir")?
 
-        _ = Stdout.line!("Success!")
+        Stdout.line!("Success!")?
 
         Ok({})
     }
 
     match result() {
         Ok(_) => Ok({})
         Err(err) => {
-            _ = Stderr.line!("Error during directory operations: ${Str.inspect(err)}")
+            Stderr.line!("Error during directory operations: ${Str.inspect(err)}") ?? {}
             Err(Exit(1))
         }
     }

examples/echo.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Http
@@ -20,6 +20,7 @@ init! = || Ok({})
 
 respond! : Http.Request, Model => Try(Http.Response, [ServerErr(Str), ..])
 respond! = |req, _model| {
-    _ = Stdout.line!("${Str.inspect(req.method())} ${req.uri()}")
+    Stdout.line!("${Str.inspect(req.method())} ${req.uri()}")
+        ? |err| ServerErr("Failed to log request: ${Str.inspect(err)}")
     Ok(Response.from_status(200).with_body(req.body()))
 }

examples/env.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Env

examples/error-handling.roc

@@ -1,7 +1,7 @@
 # This example demonstrates error handling and fetching content from another website.
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Stdout

examples/file-accessed-modified-created-time.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Stdout
@@ -34,7 +34,7 @@ init! = || {
     match result() {
         Ok(_) => Ok({})
         Err(err) => {
-            _ = Stderr.line!("Error reading file time metadata: ${Str.inspect(err)}")
+            Stderr.line!("Error reading file time metadata: ${Str.inspect(err)}") ?? {}
             Err(Exit(1))
         }
     }

examples/file-permissions.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.Stdout
@@ -32,7 +32,7 @@ init! = || {
     match result() {
         Ok(_) => Ok({})
         Err(err) => {
-            _ = Stderr.line!("Error reading file permissions: ${Str.inspect(err)}")
+            Stderr.line!("Error reading file permissions: ${Str.inspect(err)}") ?? {}
             Err(Exit(1))
         }
     }

examples/file-read-buffered.todoroc

@@ -40,15 +40,15 @@ respond! = |_, model|
 process_line! : File.Reader, ReadSummary => Result ReadSummary _
 process_line! = |reader, { lines_read, bytes_read }|
     when File.read_line!(reader) is
-        Ok(bytes) if List.len(bytes) == 0 ->
+        Ok(bytes) if bytes.len() == 0 ->
             Ok({ lines_read, bytes_read })
 
         Ok(bytes) ->
             process_line!(
                 reader,
                 {
                     lines_read: lines_read + 1,
-                    bytes_read: bytes_read + (List.len(bytes) |> Num.int_cast),
+                    bytes_read: bytes_read + (bytes.len() |> Num.int_cast),
                 },
             )
 

examples/file-read.roc

@@ -1,6 +1,6 @@
 app [Model, program] {
     pf: platform "../platform/main.roc",
-    http: "https://github.com/roc-lang/http/releases/download/0.1/6LcdNq2r7xTBwj972ecYWUkMWobJr94yL2NyJpHRAXap.tar.zst",
+    http: "https://github.com/roc-lang/http/releases/download/1.0.0/6ZUwqYhCS8PU9Mo6MF7oV82ET2o7KYb57CLKDq4cq4sS.tar.zst",
 }
 
 import pf.File