Cosmetic changes.
authorKim Nguyễn <kn@lri.fr>
Thu, 1 Mar 2012 13:29:21 +0000 (14:29 +0100)
committerKim Nguyễn <kn@lri.fr>
Thu, 1 Mar 2012 13:29:21 +0000 (14:29 +0100)
src/sigs.mli

index aa670ce..c042c2c 100644 (file)
@@ -10,7 +10,7 @@ module type T = sig
     (* Debugging *)
   val dump : Format.formatter -> t -> unit
   val check : t -> unit (* Check internal invariants *)
-    
+
   (* Data structures *)
   val equal : t -> t -> bool
   val hash : t -> int
@@ -28,13 +28,13 @@ sig
 end
 
 module type BINARY_TREE =
-  functor (Tag:TAG) -> 
+  functor (Tag:TAG) ->
 sig
   include T
   module Tag : TAG with type t = Tag.t
   val parse_xml_uri : string -> t
   val parse_xml_string : string -> t
-    
+
   val root : t -> t
 
   val is_string : t -> bool
@@ -45,20 +45,20 @@ sig
   val first_child : t -> t
   val next_sibling : t -> t
   val parent : t -> t
-    
+
   val id : t -> int
   val tag : t -> Tag.t
 
   val print_xml : out_channel -> t -> unit
   val size : t -> int*int*int*int
 end
-module type BINARY_TREE_S = 
+module type BINARY_TREE_S =
 sig
   include T
   module Tag : TAG
   val parse_xml_uri : string -> t
   val parse_xml_string : string -> t
-    
+
   val root : t -> t
 
   val is_string : t -> bool
@@ -69,7 +69,7 @@ sig
   val first_child : t -> t
   val next_sibling : t -> t
   val parent : t -> t
-    
+
   val id : t -> int
   val tag : t -> Tag.t