civicaml/phases/print.ml

open Ast
open Stringify

let phase = function
    | Ast (node, args) as input ->
        if args.verbose >= 2 then (
            prerr_endline "--------------------------------------------------";
            prerr_endline (node2str node);
            prerr_endline "--------------------------------------------------"
        );
        input
    | _ -> raise (InvalidInput "print")