31 lines | 1467 chars
| 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 |