X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2FqNameSet.ml;h=95228bd7e0a703d3631ac2fa352f160c8e2ddde4;hp=91309e054a05bae62d0953d0b79600d7a71fe943;hb=35abea737ead2d4fd121d0cb8bdbda38cfcaa8d3;hpb=78d247dc5e6d5e64a4ab848702c23ce81b6fc615

diff --git a/src/qNameSet.ml b/src/qNameSet.ml
index 91309e0..95228bd 100644
--- 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