package ocamlformat-lib
Auto-formatter for OCaml code
Install
Dune Dependency
github.com
Readme
Changelog
MIT; LGPL-2.1-only WITH OCaml-LGPL-linking-exception License
Edit opam file
Versions (5)
Authors
Maintainers
Sources
ocamlformat-0.26.0.tbz
sha256=031494ab770cef10a8f6aa1cbeb5660e46c3aa6c0cd457b110fec859a75e877d
sha512=35c0131f04c2c8ceb94f0f400e4b56690405ddebb482aec0c9962163001d9fd5b593455df08b508394949f2740ba28f1714dff9e1f17b618bdec62fd26fae281
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"
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>