simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-10 21:23:57 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove ugly tabs

Browse source
This commit is contained in:
Simon Cruanes 2014-05-27 13:25:15 +02:00
parent 9a10d477ee
commit 3127f046de
2 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
misc/AVL.ml
View file

@ -34,9 +34,10 @@ type ('a,'b) tree =
| Empty | Empty
| Node of ('a,'b) tree * 'a * 'b * ('a,'b) tree * int | Node of ('a,'b) tree * 'a * 'b * ('a,'b) tree * int
type ('a,'b) t = type ('a,'b) t = {
{ cmp: 'a comparator; cmp: 'a comparator;
t: ('a,'b) tree } t: ('a,'b) tree
}
let empty ~cmp = { cmp; t=Empty } let empty ~cmp = { cmp; t=Empty }

7
misc/AVL.mli
View file

@ -32,9 +32,10 @@ type ('a,'b) tree = private
| Empty | Empty
| Node of ('a,'b) tree * 'a * 'b * ('a,'b) tree * int | Node of ('a,'b) tree * 'a * 'b * ('a,'b) tree * int
type ('a,'b) t = private type ('a,'b) t = private {
{ cmp: 'a comparator; cmp: 'a comparator;
t: ('a,'b) tree } t: ('a,'b) tree
}
val empty : cmp:'a comparator -> ('a,'b) t val empty : cmp:'a comparator -> ('a,'b) t
(** Empty tree *) (** Empty tree *)