Source file ppxlib_jane.ml

module Shim = Shim
module Ast_builder = Ast_builder
module Ast_traverse = Ast_traverse
module Jane_syntax = Jane_syntax
module Legacy_pexp_function = Legacy_pexp_function

(** {2 Common helper functions} *)
include Common

(** {2 Common Jane Street helper types} *)

type modality = Shim.Modality.t = Modality of string [@@unboxed]
type mode = Shim.Mode.t = Mode of string [@@unboxed]
type modes = Shim.Modes.t

type arrow_result = Shim.arrow_result =
  { result_modes : modes
  ; result_type : Ppxlib_ast.Parsetree.core_type
  }

type arrow_argument = Shim.arrow_argument =
  { arg_label : Ppxlib_ast.Asttypes.arg_label
  ; arg_modes : modes
  ; arg_type : Ppxlib_ast.Parsetree.core_type
  }

module For_testing = struct
  module Language_extension = Language_extension
  module Language_extension_kernel = Language_extension_kernel
end