package ocamlformat-lib
OCaml Code Formatter
Install
Dune Dependency
Authors
Maintainers
Sources
ocamlformat-0.27.0.tbz
sha256=ddbf484c076d08f99400ee84b790ec231f5c8fcbd5d3324a6400d5388e846d15
sha512=4d2a8965a7b7ad45f8f4e76c01cf38bfa68462b07dfa7bdb2db23bd3e3017b214e6780f036679fa8595dde4167a01d957e3af8837274320449014e306773f917
doc/src/ocamlformat-lib.odoc_parser/parse_error.ml.html
Source file parse_error.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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88
let capitalize_ascii = Astring.String.Ascii.capitalize let bad_markup : ?suggestion:string -> string -> Loc.span -> Warning.t = fun ?suggestion -> Warning.make ?suggestion "'%s': bad markup." let leading_zero_in_heading_level : string -> Loc.span -> Warning.t = Warning.make "'%s': leading zero in heading level." let should_not_be_empty : what:string -> Loc.span -> Warning.t = fun ~what -> Warning.make "%s should not be empty." (capitalize_ascii what) let markup_should_not_be_used : what:string -> Loc.span -> Warning.t = fun ~what -> Warning.make "%s should not be used because it has no effect." (capitalize_ascii what) let should_begin_on_its_own_line : what:string -> Loc.span -> Warning.t = fun ~what -> Warning.make "%s should begin on its own line." (capitalize_ascii what) let should_be_followed_by_whitespace : what:string -> Loc.span -> Warning.t = fun ~what -> Warning.make "%s should be followed by space, a tab, or a new line." (capitalize_ascii what) let not_allowed : ?suggestion:string -> what:string -> in_what:string -> Loc.span -> Warning.t = fun ?suggestion ~what ~in_what -> Warning.make ?suggestion "%s is not allowed in %s." (capitalize_ascii what) in_what let unclosed_bracket : ?suggestion:string -> bracket:string -> Loc.span -> Warning.t = fun ?suggestion ~bracket -> Warning.make ?suggestion "Open bracket '%s' is never closed." bracket let no_leading_whitespace_in_verbatim : Loc.span -> Warning.t = Warning.make "'{v' should be followed by whitespace." let no_trailing_whitespace_in_verbatim : Loc.span -> Warning.t = Warning.make "'v}' should be preceded by whitespace." let stray_at : Loc.span -> Warning.t = Warning.make "Stray '@'." let stray_cr : Loc.span -> Warning.t = Warning.make "Stray '\\r' (carriage return character)." let truncated_before : Loc.span -> Warning.t = Warning.make "'@before' expects version number on the same line." let truncated_param : Loc.span -> Warning.t = Warning.make "'@param' expects parameter name on the same line." let truncated_raise : string -> Loc.span -> Warning.t = Warning.make "'%s' expects exception constructor on the same line." let truncated_see : Loc.span -> Warning.t = Warning.make "'@see' should be followed by <url>, 'file', or \"document title\"." let unknown_tag : string -> Loc.span -> Warning.t = Warning.make "Unknown tag '%s'." let unpaired_right_brace : Loc.span -> Warning.t = Warning.make ~suggestion:"try '\\}'." "Unpaired '}' (end of markup)." let unpaired_right_bracket : Loc.span -> Warning.t = Warning.make ~suggestion:"try '\\]'." "Unpaired ']' (end of code)." let no_language_tag_in_meta : Loc.span -> Warning.t = Warning.make ~suggestion:"try '{[ ... ]}' or '{@ocaml[ ... ]}'." "'{@' should be followed by a language tag." let language_tag_invalid_char lang_tag : char -> Loc.span -> Warning.t = let suggestion = "try '{@" ^ lang_tag ^ "[ ... ]}'." in Warning.make ~suggestion "Invalid character '%c' in language tag." let truncated_code_block_meta : Loc.span -> Warning.t = Warning.make ~suggestion:"try '{@ocaml[ ... ]}'." "Missing end of code block." let truncated_code_block : Loc.span -> Warning.t = Warning.make ~suggestion:"add ']}'." "Missing end of code block." let end_not_allowed : in_what:string -> Loc.span -> Warning.t = fun ~in_what -> Warning.make ~suggestion:"add '}'." "End of text is not allowed in %s." in_what
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>