civicaml/phases/assemble.ml

open Ast
open Util

let assemble = function
    | node -> [[""]]

let rec phase input =
    prerr_endline "- Assembly";
    match input with
    | Ast node -> Assembly (assemble node)
    | _ -> raise (InvalidInput "assembly")