diff options
| author | Maxime Dénès | 2016-06-28 10:57:52 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2016-06-28 10:57:52 +0200 |
| commit | 16a6be0332bf3bea4a87ee5eec874cbf444174c3 (patch) | |
| tree | 39c64e0325f525e7f785d1322db339cbfe70d4ed /pretyping/patternops.ml | |
| parent | 35b28e591cc3cf00afcc56aec2f206b58bfd416e (diff) | |
| parent | 4b3a261bee1882c338e6e72e992349dfa02f9678 (diff) | |
Merge branch 'warnings' into trunk
Was PR#213: New warnings machinery
Diffstat (limited to 'pretyping/patternops.ml')
| -rw-r--r-- | pretyping/patternops.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/pretyping/patternops.ml b/pretyping/patternops.ml index d6305d81a8..3344faef8a 100644 --- a/pretyping/patternops.ml +++ b/pretyping/patternops.ml @@ -348,8 +348,7 @@ let rec pat_of_raw metas vars = function | GHole _ -> PMeta None | GCast (_,c,_) -> - Feedback.msg_warning (strbrk "Cast not taken into account in constr pattern"); - pat_of_raw metas vars c + Errors.error ("Cast not supported in constr pattern") | GIf (_,c,(_,None),b1,b2) -> PIf (pat_of_raw metas vars c, pat_of_raw metas vars b1,pat_of_raw metas vars b2) |