[fix] qmlPrint: printing more line breaks when printing long directives

MLstate · Jul 7, 2011 · 8ba7656 · 8ba7656
1 parent 24f427d
commit 8ba7656
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/libqmlcompil/qmlPrint.ml b/libqmlcompil/qmlPrint.ml
@@ -481,9 +481,9 @@ object (self)
     match exprs, tys with
     | [], [] -> pp f "@[<2>%a@]" variant_aux variant
     | _, [] ->
-        pp f "@[<2>%a(%a)@]" variant_aux variant (pp_list ",@ " self#reset#under_comma#expr) exprs
+        pp f "@[<2>%a(@,%a)@]" variant_aux variant (pp_list ",@ " self#reset#under_comma#expr) exprs
     | _ ->
-        pp f "@[<2>%a(%a ; %a)@]" variant_aux variant
+        pp f "@[<2>%a(@,%a ;@ %a)@]" variant_aux variant
           (pp_list ",@ " self#reset#under_comma#expr) exprs
           (pp_list ",@ " self#reset#under_comma#ty) tys
   method record f l =