package ocamlformat-lib
OCaml Code Formatter
Install
Dune Dependency
Authors
Maintainers
Sources
ocamlformat-0.26.2.tbz
sha256=2e4f596bf7aa367a844fe83ba0f6b0bf14b2a65179ddc082363fe9793d0375c5
sha512=b03d57462e65b11aa9f78dd5c4548251e8d1c5a1c9662f7502bdb10472aeb9df33c1d407350767a5223fbff9c01d53de85bafacd0274b49abc4b43701b159bee
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
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 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."
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>