port and lazy key base unwrapping

diff --git a/src/filestuffs.gleam b/src/filestuffs.gleam
index 7e0c49e1c073ba6bc5a859b1e1617645bb0e5a75..bf5670ddca57d8f1eb2e25f472f0135b967aa56d 100644 (file)
--- a/src/filestuffs.gleam
+++ b/src/filestuffs.gleam
@@ -1,6 +1,7 @@
 import argv
 import envoy
 import gleam/erlang/process
+import gleam/int
 import gleam/io
 import gleam/result
 import mist
@@ -27,13 +28,17 @@ fn web(file_path: String, password: String) -> Nil {
   wisp.configure_logger()
 
   let secret_key_base =
-    result.unwrap(envoy.get("SECRET_KEY_BASE"), wisp.random_string(64))
+    result.lazy_unwrap(envoy.get("SECRET_KEY_BASE"), fn() {
+      wisp.random_string(64)
+    })
 
   let assert Ok(_) =
     router.handle_request(_, file_path, password)
     |> wisp_mist.handler(secret_key_base)
     |> mist.new
-    |> mist.port(8000)
+    |> mist.port(
+      envoy.get("PORT") |> result.try(int.parse) |> result.unwrap(8000),
+    )
     |> mist.start
 
   process.sleep_forever()