Source file `execution_env.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
let inside_emacs = Option.is_some (Env.get Env.initial "INSIDE_EMACS")
let inside_ci = Option.is_some (Env.get Env.initial "CI")

module Inside_dune = struct
  type t =
    | Yes
    | In_context of Path.Build.t

  let var = "INSIDE_DUNE"

  let value = function
    | Yes -> "1"
    | In_context b -> Path.to_absolute_filename (Path.build b)
  ;;
end

let inside_dune = Option.is_some (Env.get Env.initial Inside_dune.var)