package daypack-lib

  1. Overview
  2. Docs
package daypack-lib
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file debug_print.ml

1
2
3
4
5
6
7
let indent_single = "  "

let bprintf ?(indent_level : int = 0) buffer fmt =
  for _ = 0 to indent_level - 1 do
    Buffer.add_string buffer indent_single
  done;
  Printf.bprintf buffer fmt