diff options
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 -> "" |