Source file `configuration.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
module Service = Config_service

type t = Config_core.t

let create = Config_core.create

(* TODO [jerben] Remove these two and explicitly inject config service where those are used *)
let is_testing () =
  let open Base in
  Sys.getenv "SIHL_ENV"
  |> Option.value ~default:"development"
  |> String.equal "test"

let read_string_default ~default key =
  let open Base in
  let value =
    Option.first_some (Sys.getenv key)
      (Map.find (Config_core.Internal.get ()) key)
  in
  Option.value value ~default