12 lines
230 B
OCaml
12 lines
230 B
OCaml
|
type t =
|
||
|
|
Standard of string
|
||
|
|
| Verbatim of string
|
||
|
|
|
||
|
|
let pp ppf = function
|
||
|
|
Standard s -> Format.fprintf ppf "%S" s
|
||
|
|
| Verbatim v -> Format.fprintf ppf "{|%s|}" v
|
||
|
|
|
||
|
|
let extract = function
|
||
|
|
Standard s -> s
|
||
|
|
| Verbatim v -> v
|