18 lines
942 B
OCaml
18 lines
942 B
OCaml
(******************************************************************************)
|
|
(* *)
|
|
(* Inferno *)
|
|
(* *)
|
|
(* Gabriel Scherer, Inria Saclay *)
|
|
(* *)
|
|
(* Copyright Inria. All rights reserved. This file is distributed under the *)
|
|
(* terms of the MIT License, as described in the file LICENSE. *)
|
|
(* *)
|
|
(******************************************************************************)
|
|
|
|
let emit doc =
|
|
PPrint.ToChannel.pretty 0.9 80 stdout doc
|
|
|
|
let emit_endline doc =
|
|
emit PPrint.(doc ^^ hardline);
|
|
flush stdout
|