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/." --- pretyping/detyping.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'pretyping/detyping.ml') diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml index 6f099c8df..13e2e5d71 100644 --- a/pretyping/detyping.ml +++ b/pretyping/detyping.ml @@ -508,7 +508,7 @@ let rec detype flags avoid env sigma t = CAst.make @@ let body' = EConstr.of_constr body' in substl (c :: List.rev args) body' with Retyping.RetypeError _ | Not_found -> - anomaly (str"Cannot detype an unfolded primitive projection.") + anomaly (str"Cannot detype an unfolded primitive projection") in (detype flags avoid env sigma c').CAst.v else if print_primproj_params () then -- cgit v1.2.3