Cosmetic changes (truncate long lines, remove trailing spaces…)

[tatoo.git] / src / qNameSet.ml

diff --git a/src/qNameSet.ml b/src/qNameSet.ml
index 91309e0..95228bd 100644 (file)
--- a/src/qNameSet.ml
+++ b/src/qNameSet.ml
@@ -24,7 +24,10 @@ let printer fmt e test conv inv is_any =
   if test e then print_finite fmt e conv
   else
     let () = Format.fprintf fmt "%s" Pretty.big_sigma in
-    if not (is_any e) then begin Format.fprintf fmt "-";print_finite fmt (inv e) conv end
+    if not (is_any e) then begin
+      Format.fprintf fmt "-";
+      print_finite fmt (inv e) conv
+    end
 
 let print fmt e = printer fmt e is_finite elements complement is_any