lily/pinpoint
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve server env loading

Browse source
This commit is contained in:
Lily Rose 2025-07-17 18:59:57 +10:00
parent ebc18d2b92
commit df941103ba
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
server/src/server.gleam
View file

@ -4,6 +4,7 @@ import gleam/erlang/process
import gleam/http.{Get, Post} import gleam/http.{Get, Post}
import gleam/int import gleam/int
import gleam/json import gleam/json
import gleam/result
import lustre/attribute import lustre/attribute
import lustre/element import lustre/element
import lustre/element/html import lustre/element/html
@ -16,16 +17,21 @@ import wisp/wisp_mist
pub fn main() { pub fn main() {
wisp.configure_logger() wisp.configure_logger()
let secret_key_base = wisp.random_string(64)
let assert Ok(priv_directory) = wisp.priv_directory("server") let assert Ok(priv_directory) = wisp.priv_directory("server")
let static_directory = priv_directory <> "/static" let static_directory = priv_directory <> "/static"
let assert Ok(port_str) = envoy.get("PORT") let geofeed_path = envoy.get("GEOFEED_PATH") |> result.unwrap("geofeed.csv")
let assert Ok(geofeed_path) = envoy.get("GEOFEED") let secret_key_base =
let assert Ok(port) = int.parse(port_str) envoy.get("SECRET_KEY") |> result.unwrap(wisp.random_string(64))
let bind_address = envoy.get("BIND_ADDRESS") |> result.unwrap("0.0.0.0")
let port =
envoy.get("PORT")
|> result.try(int.parse)
|> result.unwrap(8080)
let assert Ok(_) = let assert Ok(_) =
handle_request(static_directory, geofeed_path, _) handle_request(_, static_directory, geofeed_path)
|> wisp_mist.handler(secret_key_base) |> wisp_mist.handler(secret_key_base)
|> mist.new |> mist.new
|> mist.bind(bind_address)
|> mist.port(port) |> mist.port(port)
|> mist.start |> mist.start
process.sleep_forever() process.sleep_forever()
@ -45,9 +51,9 @@ fn app_middleware(
} }
fn handle_request( fn handle_request(
req: Request,
static_directory: String, static_directory: String,
geofeed_path: String, geofeed_path: String,
req: Request,
) -> Response { ) -> Response {
use req <- app_middleware(req, static_directory) use req <- app_middleware(req, static_directory)
case req.method, wisp.path_segments(req) { case req.method, wisp.path_segments(req) {