package kdl
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Page
Library
Module
Module type
Parameter
Class
Class type
Source
Source file err.ml
1 2 3 4 5 6 7 8 9 10 11 12 13exception CustomParsingError of string * Loc.t exception CustomLexingError of string (* TODO: Create a sum type instead of strings? *) type error_loc = Loc.t type error = string * error_loc let show_error (msg, loc) = Printf.sprintf "%s: %s" (Loc.show loc) msg exception Parse_error of error