diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:19 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:19 +0000 |
| commit | 5053ccc561dd1416a788b5e000049b7e51826a7e (patch) | |
| tree | cde13ab8805732e8a030525aa8c5cf2a402bd2ba /checker/values.ml | |
| parent | ed18331f31fe2da5215a2548527e2b877f0b722f (diff) | |
checker validation made a bit more verbose
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16690 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'checker/values.ml')
| -rw-r--r-- | checker/values.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/checker/values.ml b/checker/values.ml index 0855263f7..eb18bf34b 100644 --- a/checker/values.ml +++ b/checker/values.ml @@ -33,7 +33,7 @@ MD5 1e607e046b15faeee5912eda83dbb1ba checker/cic.mli type value = | Any - | Fail + | Fail of string | Tuple of string * value array | Sum of string * int * value array array | Array of value @@ -113,9 +113,9 @@ let v_cast = v_enum "cast_kind" 3 let rec v_constr = Sum ("constr",0,[| [|Int|]; (* Rel *) - [|Fail|]; (* Var *) - [|Fail|]; (* Meta *) - [|Fail|]; (* Evar *) + [|Fail "Var"|]; (* Var *) + [|Fail "Meta"|]; (* Meta *) + [|Fail "Evar"|]; (* Evar *) [|v_sort|]; (* Sort *) [|v_constr;v_cast;v_constr|]; (* Cast *) [|v_name;v_constr;v_constr|]; (* Prod *) |