package reason

  1. Overview
  2. Docs
package reason
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file ocaml_util.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# 2 "ocaml_util.cppo.ml"
let warn_latin1 lexbuf =
  Location.deprecated (Location.curr lexbuf) "ISO-Latin1 characters in identifiers"

# 10 "ocaml_util.cppo.ml"
let print_loc ppf loc =
  Location.print_loc ppf loc


let print_error loc f ppf x =
  
# 16 "ocaml_util.cppo.ml"
  let error =
    let f (fmt: Format_doc.formatter) err =
      let doc_f =
        Format_doc.deprecated_printer (fun fmt -> Format.fprintf fmt "%a" f err)
      in
      doc_f fmt
    in
    Location.error_of_printer ~loc f x in
  Location.print_report ppf error