diff options
| author | Maxime Dénès | 2019-06-05 10:11:26 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-06-05 10:11:26 +0200 |
| commit | c0a695e89b0562eb6450c04ddba5e6e0414e5fd8 (patch) | |
| tree | 376928f87987f440142cc7e6353c6987cb4b2be7 /dev | |
| parent | 658ae0d320473e25ee60cf158ed808be294f3a69 (diff) | |
| parent | ae87619019adf56acf8985f7f1c4e49246ca9b5a (diff) | |
Merge PR #10215: Refine typing of vernacular commands
Reviewed-by: SkySkimmer
Ack-by: ejgallego
Ack-by: gares
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/ci/user-overlays/10215-gares-less-ontop.sh | 15 | ||||
| -rw-r--r-- | dev/top_printers.ml | 4 |
2 files changed, 17 insertions, 2 deletions
diff --git a/dev/ci/user-overlays/10215-gares-less-ontop.sh b/dev/ci/user-overlays/10215-gares-less-ontop.sh new file mode 100644 index 0000000000..bceb5ad0e8 --- /dev/null +++ b/dev/ci/user-overlays/10215-gares-less-ontop.sh @@ -0,0 +1,15 @@ +if [ "$CI_PULL_REQUEST" = "10215" ] || [ "$CI_BRANCH" = "custom-typing" ]; then + + equations_CI_REF=pass-less-ontop + equations_CI_GITURL=https://github.com/gares/Coq-Equations + + mtac2_CI_REF=pass-less-ontop + mtac2_CI_GITURL=https://github.com/SkySkimmer/Mtac2 + + paramcoq_CI_REF=pass-less-ontop + paramcoq_CI_GITURL=https://github.com/gares/paramcoq + + quickchick_CI_REF=pass-less-ontop + quickchick_CI_GITURL=https://github.com/gares/QuickChick + +fi diff --git a/dev/top_printers.ml b/dev/top_printers.ml index 2859b56cbe..4ce87faaa1 100644 --- a/dev/top_printers.ml +++ b/dev/top_printers.ml @@ -532,7 +532,7 @@ let _ = let open Vernacextend in let ty_constr = Extend.TUentry (get_arg_tag Stdarg.wit_constr) in let cmd_sig = TyTerminal("PrintConstr", TyNonTerminal(ty_constr, TyNil)) in - let cmd_fn c ~atts ~st = in_current_context econstr_display c; st in + let cmd_fn c ~atts = VtDefault (fun () -> in_current_context econstr_display c) in let cmd_class _ = VtQuery,VtNow in let cmd : ty_ml = TyML (false, cmd_sig, cmd_fn, Some cmd_class) in vernac_extend ~command:"PrintConstr" [cmd] @@ -541,7 +541,7 @@ let _ = let open Vernacextend in let ty_constr = Extend.TUentry (get_arg_tag Stdarg.wit_constr) in let cmd_sig = TyTerminal("PrintPureConstr", TyNonTerminal(ty_constr, TyNil)) in - let cmd_fn c ~atts ~st = in_current_context print_pure_econstr c; st in + let cmd_fn c ~atts = VtDefault (fun () -> in_current_context print_pure_econstr c) in let cmd_class _ = VtQuery,VtNow in let cmd : ty_ml = TyML (false, cmd_sig, cmd_fn, Some cmd_class) in vernac_extend ~command:"PrintPureConstr" [cmd] |