diff options
| author | Vincent Laporte | 2019-03-25 16:05:49 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-03-25 16:05:49 +0000 |
| commit | 1fa29f0558351634ad5b30876fb089bd22bf28ad (patch) | |
| tree | 7bfd767e4af955578f79e58d7636bf2b44bb6d14 /stm | |
| parent | ce97ef5375e1596cd7b2510cf576f2961329f523 (diff) | |
[Vernacular] Deprecate the “Show Script” command
Fixes #8320
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index ab388977a5..0c5d0c7b5d 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -1121,7 +1121,12 @@ let get_script prf = in find [] (VCS.get_branch_pos branch) +let warn_show_script_deprecated = + CWarnings.create ~name:"deprecated-show-script" ~category:"deprecated" + (fun () -> Pp.str "The “Show Script” command is deprecated.") + let show_script ?proof () = + warn_show_script_deprecated (); try let prf = try match proof with |