diff options
| author | ppedrot | 2012-02-02 17:15:55 +0000 |
|---|---|---|
| committer | ppedrot | 2012-02-02 17:15:55 +0000 |
| commit | eaca4fb2918eb1a1dd74409546d947f9353ed078 (patch) | |
| tree | b0053c0c579dd316244c266beb813a869b433edf /ide | |
| parent | 9ef0dfaf7c2aa0030b194ac040b071b4ce275fee (diff) | |
More information returned by coqtop about its internal state. Hopefully we'll manage to get rid of the own stack of coqide.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14965 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide')
| -rw-r--r-- | ide/coqide.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/coqide.ml b/ide/coqide.ml index 009a198920..2f53fa8ff3 100644 --- a/ide/coqide.ml +++ b/ide/coqide.ml @@ -2192,8 +2192,8 @@ let main files = "Oops, problem while fetching coq status." | Interface.Good status -> let path = match status.Interface.status_path with - | None -> "" - | Some p -> " in " ^ p + | [] | _ :: [] -> "" (* Drop the topmost level, usually "Top" *) + | _ :: l -> " in " ^ String.concat "." l in let name = match status.Interface.status_proofname with | None -> "" |