projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Split the sig.ml module in *_sig.ml (one for each module)
[tatoo.git]
/
src
/
utils
/
ptset.ml
diff --git
a/src/utils/ptset.ml
b/src/utils/ptset.ml
index
68876d4
..
3de13bc
100644
(file)
--- a/
src/utils/ptset.ml
+++ b/
src/utils/ptset.ml
@@
-15,7
+15,7
@@
(***********************************************************************)
(*
(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-05 0
0:37:2
2 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-05 0
1:49:5
2 CET by Kim Nguyen>
*)
(* Modified by Kim Nguyen *)
*)
(* Modified by Kim Nguyen *)
@@
-26,10
+26,10
@@
INCLUDE "utils.ml"
INCLUDE "utils.ml"
-include
Sigs.PTSET
+include
Ptset_sig
module type HConsBuilder =
module type HConsBuilder =
- functor (H :
Sigs.AUX
.HashedType) -> Hcons.S with type data = H.t
+ functor (H :
Common_sig
.HashedType) -> Hcons.S with type data = H.t
module Builder (HCB : HConsBuilder) (H : Hcons.Abstract) :
S with type elt = H.t =
module Builder (HCB : HConsBuilder) (H : Hcons.Abstract) :
S with type elt = H.t =
@@
-42,7
+42,7
@@
struct
| Branch of int * int * 'a * 'a
module rec Node : Hcons.S with type data = Data.t = HCB(Data)
| Branch of int * int * 'a * 'a
module rec Node : Hcons.S with type data = Data.t = HCB(Data)
- and Data :
Sigs.AUX
.HashedType with type t = Node.t set =
+ and Data :
Common_sig
.HashedType with type t = Node.t set =
struct
type t = Node.t set
let equal x y =
struct
type t = Node.t set
let equal x y =