Source file `migrate_parsetree_compiler_functions.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
# 1 "src/vendored-ocaml-migrate-parsetree-v1.7.3/src/compiler-functions/ge_410.ml"
let error_of_exn exn =
  match Location.error_of_exn exn with
  | Some (`Ok exn) -> Some exn
  | Some `Already_displayed -> None
  | None -> None

let get_load_paths () =
  Load_path.get_paths ()

let load_path_init l =
  Load_path.init l

let get_unboxed_types () =
  !Clflags.unboxed_types

let set_unboxed_types b =
  Clflags.unboxed_types := b

let may_map = Option.map