From cc783c157f31e7e713c8b83be67449b1859dac27 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Wed, 20 Dec 2023 20:43:25 -0600
Subject: Initial commit

---
 bin/main.ml | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 bin/main.ml

(limited to 'bin/main.ml')

diff --git a/bin/main.ml b/bin/main.ml
new file mode 100644
index 0000000..2ed3595
--- /dev/null
+++ b/bin/main.ml
@@ -0,0 +1,19 @@
+open Ann_bloop
+
+let () =
+  let port =
+    Sys.getenv_opt "PORT" |> Option.map int_of_string
+    |> Option.value ~default:8080
+  in
+  let env = Sys.getenv_opt "ENV" |> Option.value ~default:"PROD" in
+  let disable_auth =
+    Sys.getenv_opt "DISABLE_AUTH" |> Option.value ~default:"false"
+  in
+  let interface = if env = "DEV" then "localhost" else "0.0.0.0" in
+  Dream.run ~port ~interface @@ Dream.logger
+  @@ Dream.router
+       [
+         Dream.get "/actor" (fun _ ->
+             Dream.log "Sending actor";
+             Dream.html "Hello world!")
+       ]
-- 
cgit v1.2.3