(* This Source Code Form is subject to the terms of the Mozilla Public
   License, v. 2.0. If a copy of the MPL was not distributed with this
   file, You can obtain one at https://mozilla.org/MPL/2.0/. *)

type t = Common.obj

let name (obj : t) =
  match obj with
  | E_o exa -> exa.name
  | F_o file -> file.name