Source file `err.ml`

1
2
3
4
5
6
7
open Ppxlib

let err_expr_node ~loc msg =
  Location.error_extensionf ~loc msg |> Ast_builder.Default.pexp_extension ~loc

let err_pat_node ~loc msg =
  Location.error_extensionf ~loc msg |> Ast_builder.Default.ppat_extension ~loc