package ocamlformat-lib

  1. Overview
  2. Docs
OCaml Code Formatter

Install

Dune Dependency

Authors

Maintainers

Sources

ocamlformat-0.27.0.tbz
sha256=ddbf484c076d08f99400ee84b790ec231f5c8fcbd5d3324a6400d5388e846d15
sha512=4d2a8965a7b7ad45f8f4e76c01cf38bfa68462b07dfa7bdb2db23bd3e3017b214e6780f036679fa8595dde4167a01d957e3af8837274320449014e306773f917

doc/src/ocamlformat-lib.ocamlformat_stdlib/warning.ml.html

Source file warning.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
let () = Clflags.error_style := Some Misc.Error_style.Short

let with_warning_filter ~filter_warning ~filter_alert ~f =
  let warning_reporter = !Location.warning_reporter in
  let alert_reporter = !Location.alert_reporter in
  (Location.warning_reporter :=
     fun loc warn ->
       if filter_warning loc warn then Location.default_warning_reporter loc warn
       else None) ;
  (Location.alert_reporter := fun loc alert ->
      if filter_alert loc alert then alert_reporter loc alert else None);
  let reset () =
    Location.warning_reporter := warning_reporter;
    Location.alert_reporter := alert_reporter
  in
  try
    let x = f () in
    reset () ; x
  with e -> reset () ; raise e

let print_warning l w =
  match Location.default_warning_reporter l w with
  | Some reporter -> Location.print_report Stdlib.Format.err_formatter reporter
  | None -> ()

let is_unexpected_docstring = function
  | Warnings.Unexpected_docstring _ -> true
  | _ -> false
  
let is_deprecated_alert alert =
  alert.Warnings.kind = "deprecated"
OCaml

Innovation. Community. Security.