diff options
Diffstat (limited to '')
| -rw-r--r-- | bin/dune | 5 | ||||
| -rw-r--r-- | bin/main.ml | 19 |
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!") + ] |