1 (**************************************************************************)
2 (* *)
3 (* OCaml *)
4 (* *)
5 (* Pierre Chambart, OCamlPro *)
6 (* Mark Shinwell and Leo White, Jane Street Europe *)
7 (* *)
8 (* Copyright 2013--2016 OCamlPro SAS *)
9 (* Copyright 2014--2016 Jane Street Group LLC *)
10 (* *)
11 (* All rights reserved. This file is distributed under the terms of *)
12 (* the GNU Lesser General Public License version 2.1, with the *)
13 (* special exception on linking described in the file LICENSE. *)
14 (* *)
15 (**************************************************************************)
16
17 [@@@ocaml.warning "+a-4-9-30-40-41-42-66"]
18 open! Int_replace_polymorphic_compare
19
20 type t = string
21
22 include Identifiable.Make (struct
23 include String
24 let hash = Hashtbl.hash
25 let print ppf t = Format.pp_print_string ppf t
26 let output chan t = output_string chan t
27 end)
28
29 let create t = t
30 let to_string t = t
31