From cc783c157f31e7e713c8b83be67449b1859dac27 Mon Sep 17 00:00:00 2001 From: Marc Coquand Date: Wed, 20 Dec 2023 20:43:25 -0600 Subject: Initial commit --- bin/dune | 5 +++++ bin/main.ml | 19 +++++++++++++++++++ 2 files changed, 24 insertions(+) create mode 100644 bin/dune create mode 100644 bin/main.ml (limited to 'bin') 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!") + ] -- cgit v1.2.3