civicaml/phases/print.ml

open Ast
open Stringify

let phase repr =
    (* TODO: check verbosity *)
    match repr with
    | Node (node, verbose) ->
        prerr_endline "-------------------------------------------------------";
        prerr_endline (node2str node);
        prerr_endline "-------------------------------------------------------";
        repr
    | _ -> raise (CompileError "invalid input for this phase")