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.25.1.tbz
sha256=dc8f2a330ca3930b36cacb2623bb360ed8bdf6e4a8acd293dbd9e2241a6fd33d
sha512=b28f545425fb5375447c90022d065dc7fd51ed2f66d8c1f65a71a6ad2465d039a8686e8f18249e5ad3a2362fee6149c855ef30eb45fb9d06d743a53d26b3e26f
doc/src/ocamlformat-lib.odoc_parser/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
type t = { location : Loc.span; message : string } let to_string e = let { location; message } = e in let location_string = if location.start.line = location.end_.line then Printf.sprintf "line %i, characters %i-%i" location.start.line location.start.column location.end_.column else Printf.sprintf "line %i, character %i to line %i, character %i" location.start.line location.start.column location.end_.line location.end_.column in Printf.sprintf "File \"%s\", %s:\n%s" location.file location_string message let pp fmt v = Format.fprintf fmt "%s" (to_string v) let kasprintf k fmt = Format.(kfprintf (fun _ -> k (flush_str_formatter ())) str_formatter fmt) let kmake k ?suggestion = kasprintf (fun message -> match suggestion with | None -> k message | Some suggestion -> k (message ^ "\nSuggestion: " ^ suggestion)) let make ?suggestion format = let k message location = { location; message } in kmake k ?suggestion format
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>