hcfg/test/prettyprint.ml

module Token = struct
  let pretty_print ppf tok = Fmt.pf ppf "Token %s" (Hcfg.Token.token_to_string tok)
end

module Parser = struct
  let pretty_print ppf tok = Fmt.pf ppf "HValue %s" (Hcfg.Parser.hvalue_to_string tok)
end