From 01d7f77f65c3a2b83978b1f00c87b54f00647816 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Wed, 25 Oct 2017 14:50:32 +0200 Subject: Update sheet traversal --- UTF8.ml | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'UTF8.ml') diff --git a/UTF8.ml b/UTF8.ml index 4fa5eca..fa02040 100755 --- a/UTF8.ml +++ b/UTF8.ml @@ -38,3 +38,15 @@ module Printf = struct include Printf end + +module Format = struct + + include Format + + let bprintf buffer fformat = begin + let to_b = formatter_of_buffer buffer in + let x = fprintf to_b fformat in + x + end + +end -- cgit v1.2.3