package transept
Source file pp.ml
1 2 3 4 5 6 7 8 9 10open Lexeme let pp ppf = function | Float value -> Format.fprintf ppf "%f" value | String value -> Format.fprintf ppf "\"%s\"" value | Char value -> Format.fprintf ppf "'%c'" value | Ident value -> Format.fprintf ppf "%s" value | Keyword value -> Format.fprintf ppf "%s" value let to_string = Format.asprintf "%a" pp