Permalink
Browse files

Added empty printer

  • Loading branch information...
arjunguha committed Mar 1, 2012
1 parent 8d1cdb3 commit b98978ed0ecb4df1935ae4f8ce8a31e6733eba5d
Showing with 4 additions and 0 deletions.
  1. +2 −0 src/formatExt.ml
  2. +2 −0 src/formatExt.mli
View
@@ -1,6 +1,8 @@
open Format
type printer = formatter -> unit
+
+let empty (fmt : formatter) : unit = ()
let nest (p : printer) (fmt : formatter) : unit =
pp_open_vbox fmt 2;
View
@@ -3,6 +3,8 @@ open Format
type printer = formatter -> unit
+val empty : printer
+
val nest : printer -> printer
val sep : printer list -> printer

0 comments on commit b98978e

Please sign in to comment.