X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fxpath%2Fast.ml;h=7810a0eccc16b69a12d327debe8e8704b9d8f7c5;hp=64c6c8da6214b7b863feaa28be40c883b5fd4aed;hb=41dd1fed04cabad212f10fce3484545f6e9d9444;hpb=53a0fd29a20e7f4550e0eb5fa5b0d5af6191c36d

diff --git a/src/xpath/ast.ml b/src/xpath/ast.ml
index 64c6c8d..7810a0e 100644
--- a/src/xpath/ast.ml
+++ b/src/xpath/ast.ml
@@ -13,12 +13,6 @@
 (*                                                                     *)
 (***********************************************************************)
 
-(*
-  Time-stamp: <Last modified on 2013-03-13 10:59:20 CET by Kim Nguyen>
-*)
-
-open Utils
-
 type path = single_path list
 and single_path = Absolute of step list | Relative of step list
 and step = axis * test * expr list
@@ -30,7 +24,7 @@ and axis = Self | Attribute | Child
            | PrecedingSibling
            | Preceding | Following
 
-and test = QNameSet.t * Tree.Common.NodeKind.t
+and test = QNameSet.t * Tree.NodeKind.t
 
 and binop = Eq | Neq | Lt | Gt | Lte | Gte | Or | And | Add | Sub | Mult | Div | Mod
 and unop =  Neg
@@ -128,7 +122,7 @@ and print_axis fmt a = pp fmt "%s" begin
 end
 
 and print_test fmt (ts,kind) =
-  let open Tree.Common.NodeKind in
+  let open Tree.NodeKind in
     match kind with
       Text -> pp fmt "%s" "text()"
     | Element | Attribute ->