QCaml/Utils/Printing.ml

mirror of https://gitlab.com/scemama/QCaml.git synced 2024-12-22 12:23:31 +01:00
let line ?(c='-') n =
  String.make n c

let ppf_dev_null = 
  let oc = open_out "/dev/null" in
  Format.formatter_of_out_channel oc
A lot of cleaning in HF 2019-03-01 21:56:46 +01:00			`let line ?(c='-') n =`
			`String.make n c`

Fixed Farm 2019-03-02 16:48:35 +01:00			`let ppf_dev_null =`
			`let oc = open_out "/dev/null" in`
			`Format.formatter_of_out_channel oc`
A lot of cleaning in HF 2019-03-01 21:56:46 +01:00