diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index a7d2099f1..5c56fbf9b 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -22,6 +22,8 @@ let errorlabstrm l pps = raise (UserError(l,pps)) let todo s = prerr_string ("TODO: "^s^"\n") +exception Timeout + type loc = Compat.loc let dummy_loc = Compat.dummy_loc let unloc = Compat.unloc diff --git a/lib/util.mli b/lib/util.mli index 34e91215a..23fdd7670 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -32,6 +32,8 @@ val errorlabstrm : string -> std_ppcmds -> 'a val todo : string -> unit +exception Timeout + type loc = Compat.loc type 'a located = loc * 'a |