lib/Printast.ml

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

[@@@ocaml.text "/*"]

(** Copyright 2021-2024, Kakadu and contributors *)

(** SPDX-License-Identifier: LGPL-3.0-or-later *)

[@@@ocaml.text "/*"]

type 'name t = 'name Ast.t =
  | Var of 'name
  | Abs of 'name * 'name t
  | App of 'name t * 'name t
[@@deriving show { with_path = false }]

let pp_named = pp Format.pp_print_string