From 89e79981d4a76a322955f5217a97be332d94c1c2 Mon Sep 17 00:00:00 2001
From: Guillaume Hivert <hivert.is.coming@gmail.com>
Date: Tue, 14 May 2024 21:32:37 +0200
Subject: [PATCH] fix: use PORT env variable to listen on port

Signed-off-by: Guillaume Hivert <hivert.is.coming@gmail.com>
---
 apps/backend/src/backend.gleam        | 2 +-
 apps/backend/src/backend/config.gleam | 9 +++++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/apps/backend/src/backend.gleam b/apps/backend/src/backend.gleam
index 3242b55..93fe454 100644
--- a/apps/backend/src/backend.gleam
+++ b/apps/backend/src/backend.gleam
@@ -25,7 +25,7 @@ pub fn main() {
     router.handle_request(_, ctx)
     |> wisp.mist_handler(secret_key_base)
     |> mist.new()
-    |> mist.port(3000)
+    |> mist.port(cnf.port)
     |> mist.start_http()
 
   let assert Ok(_) =
diff --git a/apps/backend/src/backend/config.gleam b/apps/backend/src/backend/config.gleam
index de83a77..b4943c6 100644
--- a/apps/backend/src/backend/config.gleam
+++ b/apps/backend/src/backend/config.gleam
@@ -1,5 +1,7 @@
 import gleam/erlang/os
+import gleam/int
 import gleam/pgo
+import gleam/result
 import wisp
 
 pub type Context {
@@ -7,13 +9,16 @@ pub type Context {
 }
 
 pub type Config {
-  Config(database_url: String, hex_api_key: String)
+  Config(database_url: String, hex_api_key: String, port: Int)
 }
 
 pub fn read_config() {
   let assert Ok(database_url) = os.get_env("DATABASE_URL")
   let assert Ok(hex_api_key) = os.get_env("HEX_API_KEY")
-  Config(database_url, hex_api_key)
+  let assert Ok(port) =
+    os.get_env("PORT")
+    |> result.try(int.parse)
+  Config(database_url, hex_api_key, port)
 }
 
 pub fn get_secret_key_base() {