diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-18 11:47:01 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2004-07-18 11:47:01 +0000 |
commit | 8e01fae88684a49be9556cf9f11289e001975502 (patch) | |
tree | 900db059df5de6c46bb545ee78a8dba0ca53d63e /ide | |
parent | 7f1a49c8d55136a95f8cf9fecf0c946629845fa8 (diff) |
Abstraction vis a vis du type loc pour ocaml 3.08
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@5951 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
-rw-r--r-- | ide/coq.mli | 2 | ||||
-rw-r--r-- | ide/coqide.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ide/coq.mli b/ide/coq.mli index 6c4608c5c..5e2c44de4 100644 --- a/ide/coq.mli +++ b/ide/coq.mli @@ -36,7 +36,7 @@ val get_current_goals_nb : unit -> int val print_no_goal : unit -> string -val process_exn : exn -> string*((int*int) option) +val process_exn : exn -> string*(Util.loc option) type reset_info = NoReset | Reset of Names.identifier * bool ref diff --git a/ide/coqide.ml b/ide/coqide.ml index 5922f1edb..bfbee58ca 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -974,7 +974,7 @@ object(self) self#set_message s; message_view#misc#draw None; if localize then - (match loc with + (match Util.option_app Util.unloc loc with | None -> () | Some (start,stop) -> let convert_pos = byte_offset_to_char_offset phrase in |