added Baseuri command

[helm.git] / helm / ocaml / cic_transformations / tacticAstPp.ml

diff --git a/helm/ocaml/cic_transformations/tacticAstPp.ml b/helm/ocaml/cic_transformations/tacticAstPp.ml
index f21aca6ba0c2668cacab3a72d2fc74db88a4af7c..76f1bbd5623961fa624a52e7253ba41027130d77 100644 (file)
--- a/helm/ocaml/cic_transformations/tacticAstPp.ml
+++ b/helm/ocaml/cic_transformations/tacticAstPp.ml
@@ -89,6 +89,8 @@ let pp_flavour = function
 
 let pp_command = function
   | Abort -> "Abort"
+  | Baseuri (Some uri) -> sprintf "Baseuri \"%s\"" uri
+  | Baseuri None -> "Baseuri"
   | Check term -> sprintf "Check %s" (CicAstPp.pp_term term)
   | Proof -> "Proof"
   | Qed name ->