Commits

Paweł Wieczorek committed 930dd34

minor

Comments (0)

Files changed (1)

 
 open Embedding
 
+let psp_max_priority = pred max_int / 2
+
+let psp_min_priority = pred min_int / 2
 
 let with_priority = Embedding.with_priority
 
 
 let psp_group_with_priority prio (xs : painter list) : painter = (prio, Basic.sp_nested (List.map get_painter xs))
 
-let psp_group = psp_group_with_priority 0
+let psp_group = psp_group_with_priority psp_min_priority
 
 let psp_indent_group_with_priority prio xs = (prio, Basic.sp_indent (List.map get_painter xs))
 
-let psp_indent_group = psp_indent_group_with_priority 0
+let psp_indent_group = psp_indent_group_with_priority psp_min_priority
 
 let psp_indent prio xs = (prio, Basic.sp_indent (List.map get_painter xs))
 
 let psp_indent_with_priority' prio x = psp_indent_group_with_priority prio [x]
 
-let psp_indent' = psp_indent_with_priority' 0
+let psp_indent' = psp_indent_with_priority' psp_min_priority
 
+let psp_empty = psp_group []
 
 let psp_reprioritize n (_, sp) = (n, sp)
 
-let psp_max_priority = pred max_int / 2
-
-let psp_min_priority = pred min_int / 2
-
 let is_multiline    = unhask_sp0 Basic.is_multiline
 
 let any_multiline   = List.exists is_multiline
  * Output
  *)
 
-let print_painter_nl psp = Basic.print_painter_nl (get_painter psp)
-let print_painter psp = Basic.print_painter (get_painter psp)
-let render_painter psp = Basic.render_painter (get_painter psp)
+let print_painter_nl psp   = Basic.print_painter_nl (get_painter psp)
+let print_painter psp      = Basic.print_painter (get_painter psp)
+let render_painter psp     = Basic.render_painter (get_painter psp)
 
 let print_painters_nl psps = print_painter_nl (psp_nested 0 psps)
 let print_painters psps    = print_painter (psp_nested 0 psps)
 let render_painters psps   = render_painter (psp_nested 0 psps)
 
-