X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=hcons.mli;h=49af121a88d02da8535daf07e089b6f62bd6b97e;hb=2676d5a3bbb1e6f6a5af66477edfe3b4c849f4e7;hp=ceb33c2b1ab6294a53bb6518c639324b672b4243;hpb=b8aa8e7f1036cf00d0fadc75ccbe0264bae6c1b2;p=SXSI%2Fxpathcomp.git

diff --git a/hcons.mli b/hcons.mli
index ceb33c2..49af121 100644
--- a/hcons.mli
+++ b/hcons.mli
@@ -1,21 +1,12 @@
 module type S =
   sig
     type data
-    type t
+    type t 
     val make : data -> t
     val node : t -> data
     val hash : t -> int
     val uid : t -> int
     val equal : t -> t -> bool
   end
-module Make :
-  functor (H : Hashtbl.HashedType) ->
-sig
-  type data = H.t
-  type t
-  val make : data -> t
-  val node : t -> data
-  val hash : t -> int
-  val uid : t -> int
-  val equal : t -> t -> bool
-end
+
+module Make (H : Hashtbl.HashedType) : S with type data = H.t