inferno-experimental/client/Utils.ml

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