Environment_configuration (flexmasa.Flexmasa.Environment

type 'a var = {

name : Internal_pervasives.string;
doc : Internal_pervasives.string Internal_pervasives.list;
transform : Internal_pervasives.string Internal_pervasives.option -> 'a;

}

val var : 
  Internal_pervasives.string ->
  doc:Internal_pervasives.string Internal_pervasives.list ->
  transform:(Internal_pervasives.string Internal_pervasives.option -> 'a) ->
  'b var

val var_default : 
  Internal_pervasives.string ->
  doc:Internal_pervasives.string Base__List.t ->
  default:Internal_pervasives.string ->
  Internal_pervasives.string var

type t = {

prefix : Internal_pervasives.string;
disabled : Internal_pervasives.bool;
default_cors_origin : Internal_pervasives.string Internal_pervasives.option var;
better_call_dev_base_url : Internal_pervasives.string var;
default_events_level : Internal_pervasives.string Internal_pervasives.option var;

}

val default : unit -> t

type 'a state = < env_config : t.. > as 'a

val prefix : < env_config : t.. > -> Internal_pervasives.string

val varname : string -> 'a var -> string

val init : 
  < manpager : Internal_pervasives.Manpage_builder.State.t.. > ->
  t ->
  unit

val get_var_from_environment : < env_config : t.. > -> (t -> 'a var) -> 'b

val default_cors_origin : 
  < env_config : t.. > ->
  Internal_pervasives.string Internal_pervasives.option

val better_call_dev_base_url : 
  < env_config : t.. > ->
  Internal_pervasives.string

val default_events_level : 
  < env_config : t.. > ->
  Internal_pervasives.string Internal_pervasives.option