Initial commit

2 files changed, 24 insertions, 0 deletions

diff --git a/bin/dune b/bin/dune
new file mode 100644
index 0000000..62d69ee
--- /dev/null
+++ b/bin/dune
@@ -0,0 +1,5 @@
+(executable
+ (public_name ann_bloop)
+ (name main)
+ (libraries ann_bloop uri dream)
+ (preprocess (pps lwt_ppx ppx_yojson_conv ppx_inline_test)))
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!")
+       ]