diff options
| author | Matthieu Sozeau | 2014-04-28 13:44:42 +0200 |
|---|---|---|
| committer | Matthieu Sozeau | 2014-05-06 09:59:01 +0200 |
| commit | 6869b22e2546b69acb74e18dc491029897ba36a3 (patch) | |
| tree | 5aeb1120d3ba2a978bc466dc7011ce722256c7e3 | |
| parent | 6bcefa6a9f6fb70334b5c68e8d17aedec5ca7b13 (diff) | |
Print universes in module printing
| -rw-r--r-- | printing/printmod.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printmod.ml b/printing/printmod.ml index 8d05e2d6d2..b7be2c0f5f 100644 --- a/printing/printmod.ml +++ b/printing/printmod.ml @@ -153,8 +153,8 @@ let print_body is_impl env mp (l,body) = spc () ++ hov 2 (str ":= " ++ Printer.pr_lconstr_env env (Mod_subst.force_constr l)) - | _ -> mt ()) ++ - str ".") + | _ -> mt ()) ++ str "." ++ + Printer.pr_universe_ctx cb.const_universes) | SFBmind mib -> try let env = Option.get env in |