diff options
author | Matej Košík <matej.kosik@inria.fr> | 2017-06-11 15:14:15 +0200 |
---|---|---|
committer | Matej Košík <matej.kosik@inria.fr> | 2017-07-27 10:10:23 +0200 |
commit | e3c247c1d96f39d2c07d120b69598a904b7d9f19 (patch) | |
tree | a9d3735d5d3f53140aa1123e87f4d4c8db8840f8 /lib/cErrors.ml | |
parent | a960c4db9ae93a6445f9db620f96f62b397ba8b5 (diff) |
deprecate Pp.std_ppcmds type alias
Diffstat (limited to 'lib/cErrors.ml')
-rw-r--r-- | lib/cErrors.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/cErrors.ml b/lib/cErrors.ml index 8ef11a2cd..3f4e8aa12 100644 --- a/lib/cErrors.ml +++ b/lib/cErrors.ml @@ -14,7 +14,7 @@ let push = Backtrace.add_backtrace (* Errors *) -exception Anomaly of string option * std_ppcmds (* System errors *) +exception Anomaly of string option * Pp.t (* System errors *) let _ = let pr = function @@ -33,7 +33,7 @@ let is_anomaly = function | Anomaly _ -> true | _ -> false -exception UserError of string option * std_ppcmds (* User errors *) +exception UserError of string option * Pp.t (* User errors *) let todo s = prerr_string ("TODO: "^s^"\n") @@ -41,7 +41,7 @@ let user_err ?loc ?hdr strm = Loc.raise ?loc (UserError (hdr, strm)) let invalid_arg ?loc s = Loc.raise ?loc (Invalid_argument s) -exception AlreadyDeclared of std_ppcmds (* for already declared Schemes *) +exception AlreadyDeclared of Pp.t (* for already declared Schemes *) let alreadydeclared pps = raise (AlreadyDeclared(pps)) exception Timeout |