From 42d510ceea82d617ac4e630049d690acbe900688 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Wed, 31 May 2017 00:49:36 -0400 Subject: Don't double up on periods in anomalies We don't want "Anomaly: Returned a functional value in a type not recognized as a product type.. Please report at http://coq.inria.fr/bugs/." but instead "Anomaly: Returned a functional value in a type not recognized as a product type. Please report at http://coq.inria.fr/bugs/." --- printing/ppconstr.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'printing/ppconstr.ml') diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 60511d913..e4eb93dd9 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -345,7 +345,7 @@ let tag_var = tag Tag.variable hov 1 (str "`" ++ (surround_impl b' (pr_lident (loc,id) ++ str " : " ++ (if t' then str "!" else mt()) ++ pr t))) - |_ -> anomaly (Pp.str "List of generalized binders have alwais one element.") + |_ -> anomaly (Pp.str "List of generalized binders have alwais one element") end | Default b -> match t with -- cgit v1.2.3