common.ml1 2 3 4 5 6 7 8 9 10(* Errors *) exception Key_error of string exception Type_error of string exception Parse_error of ((int * int) option * string) (* Convenience functions for throwing exceptions *) let key_error err = raise (Key_error err) let type_error err = raise (Type_error err)