diff options
Diffstat (limited to 'lib/syntax/report.ml')
| -rw-r--r-- | lib/syntax/report.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/syntax/report.ml b/lib/syntax/report.ml index 9ad24c3..9dae0f5 100644 --- a/lib/syntax/report.ml +++ b/lib/syntax/report.ml @@ -31,6 +31,9 @@ let pp_pos : Format.formatter -> pos -> unit = type t = { level : level; loc : pos; message : string } [@@deriving show { with_path = false }] +let debug : pos -> string -> t = + fun loc message -> { level = Debug; loc; message } + let warn : pos -> string -> t = fun loc message -> { level = Warn; loc; message } |