diff options
author | 2017-11-06 22:52:20 +0100 | |
---|---|---|
committer | 2017-11-06 22:52:20 +0100 | |
commit | 0d81e80a09db7d352408be4dfc5ba263f6ed98ef (patch) | |
tree | 2754ab2c5b6fb039b02fbe096940b112039f4e50 /stm/stm.ml | |
parent | e029cf5b417b22ebc65a8193469bbbe450f725ce (diff) | |
parent | c71e69a9be2094061e041d60614b090c8381f0b7 (diff) |
Merge PR #6064: [api] Deprecate all legacy uses of Name.Id in core.
Diffstat (limited to 'stm/stm.ml')
-rw-r--r-- | stm/stm.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index 3cac3b609..6c22d3771 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -517,8 +517,8 @@ end = struct (* {{{ *) let reachable id = reachable !vcs id let mk_branch_name { expr = x } = Branch.make (let rec aux x = match x with - | VernacDefinition (_,((_,i),_),_) -> Names.string_of_id i - | VernacStartTheoremProof (_,[Some ((_,i),_),_]) -> Names.string_of_id i + | VernacDefinition (_,((_,i),_),_) -> Names.Id.to_string i + | VernacStartTheoremProof (_,[Some ((_,i),_),_]) -> Names.Id.to_string i | VernacTime (_, e) | VernacTimeout (_, e) -> aux e | _ -> "branch" in aux x) @@ -3097,7 +3097,7 @@ let current_proof_depth ~doc = let unmangle n = let n = VCS.Branch.to_string n in let idx = String.index n '_' + 1 in - Names.id_of_string (String.sub n idx (String.length n - idx)) + Names.Id.of_string (String.sub n idx (String.length n - idx)) let proofname b = match VCS.get_branch b with | { VCS.kind = (`Proof _| `Edit _) } -> Some b |