civicaml/phases/print.ml

open Ast
open Stringify

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