simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix compat with 4.02

Browse source
This commit is contained in:
Simon Cruanes 2018-03-06 22:27:52 -06:00
parent 30fca7ae9e
commit 6b5735a318
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/core/CCUtf8_string.ml
View file

@ -9,15 +9,14 @@ type uchar = Uchar.t
type 'a gen = unit -> 'a option type 'a gen = unit -> 'a option
type 'a sequence = ('a -> unit) -> unit type 'a sequence = ('a -> unit) -> unit
type t = string let equal (a:string) b = Pervasives.(=) a b
let hash : string -> int = Hashtbl.hash
let pp = Format.pp_print_string
include String
let to_string x = x let to_string x = x
let pp = Format.pp_print_string
let equal = String.equal
let compare = String.compare
let hash : t -> int = Hashtbl.hash
(** State for decoding *) (** State for decoding *)
module Dec = struct module Dec = struct
type t = { type t = {