diff options
Diffstat (limited to 'printing/printer.ml')
-rw-r--r-- | printing/printer.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index e73ccfb35..ea6e79876 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -591,7 +591,8 @@ let pr_assumptionset env s = str (string_of_mp mp ^ "." ^ Label.to_string lab) in let safe_pr_ltype typ = - try str " : " ++ pr_ltype typ with _ -> mt () + try str " : " ++ pr_ltype typ + with e when Errors.noncritical e -> mt () in let fold t typ accu = let (v, a, o, tr) = accu in |