Fix indentation issues.

diff --git a/src/tree.ml b/src/tree.ml
index e1374a7..587e649 100644 (file)
--- a/src/tree.ml
+++ b/src/tree.ml
@@ -35,11 +35,11 @@ let tag t = (); fun s ->
 
 let to_string d = ();
   fun t ->
-  if t == Tag.pcdata then "<$>"
-  else if t == Tag.attribute_data then "<@$>"
-  else if t == Tag.attribute then "<@>"
-  else if t == Tag.nullt then "<!NIL!>"
-  else tag_name d t
+    if t == Tag.pcdata then "<$>"
+    else if t == Tag.attribute_data then "<@$>"
+    else if t == Tag.attribute then "<@>"
+    else if t == Tag.nullt then "<!NIL!>"
+    else tag_name d t
 
 let translate  x = x