Fixed bug in collect_tags (Tree.ml)

[SXSI/xpathcomp.git] / ata.ml

diff --git a/ata.ml b/ata.ml
index eb4f394..90458a3 100644 (file)
--- a/ata.ml
+++ b/ata.ml
@@ -382,7 +382,7 @@ let tags_of_state a q =
     module type ResultSet = 
     sig
       type t
-      type elt = [` Tree] Tree.node
+      type elt = [` Tree ] Tree.node
       val empty : t
       val cons : elt -> t -> t
       val concat : t -> t -> t