Commit 56a459cb authored by Bruno Guillaume's avatar Bruno Guillaume

typo

parent f36320fb
...@@ -1003,7 +1003,7 @@ module Delta = struct ...@@ -1003,7 +1003,7 @@ module Delta = struct
exception Inconsistent of string exception Inconsistent of string
(* the tree list are ordered *) (* the three list are ordered *)
type t = { type t = {
del_nodes: Gid.t list; del_nodes: Gid.t list;
edges: ((Gid.t * Label.t * Gid.t) * status) list; edges: ((Gid.t * Label.t * Gid.t) * status) list;
...@@ -1064,6 +1064,6 @@ module Graph_with_history = struct ...@@ -1064,6 +1064,6 @@ module Graph_with_history = struct
(* WARNING: compare is correct only on data with the same seed! *) (* WARNING: compare is correct only on data with the same seed! *)
let compare t1 t2 = Pervasives.compare t1.delta t2.delta let compare t1 t2 = Pervasives.compare t1.delta t2.delta
end end (* module Graph_with_history*)
module Graph_with_history_set = Set.Make (Graph_with_history) module Graph_with_history_set = Set.Make (Graph_with_history)
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment