diff options
author | 2014-12-09 12:09:44 +0100 | |
---|---|---|
committer | 2014-12-11 18:34:04 +0100 | |
commit | 34cb1f6491017e4ed1a509f6b83b88a812ac425f (patch) | |
tree | 0ad12f25af3050bb289147c54fe52f7349f2335e /interp/constrintern.ml | |
parent | d083200ae5b391ceffaa0329a8e3a334036c7968 (diff) |
Tentatively more informative report of failure when inferring
pattern-matching predicate.
Diffstat (limited to 'interp/constrintern.ml')
-rw-r--r-- | interp/constrintern.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/constrintern.ml b/interp/constrintern.ml index a0654220e..0fbd3cff9 100644 --- a/interp/constrintern.ml +++ b/interp/constrintern.ml @@ -1514,7 +1514,7 @@ let internalize globalenv env allow_patvar lvar c = GCases(Loc.ghost,Term.RegularStyle,(* Some (GSort (Loc.ghost,GType None)) *)None, (* "return Type" *) List.map (fun id -> GVar (Loc.ghost,id),(Name id,None)) thevars, (* "match v1,..,vn" *) [Loc.ghost,[],thepats, (* "|p1,..,pn" *) - Option.cata (intern_type env') (GHole(Loc.ghost,Evar_kinds.CasesType,Misctypes.IntroAnonymous,None)) rtnpo; (* "=> P" is there were a P "=> _" else *) + Option.cata (intern_type env') (GHole(Loc.ghost,Evar_kinds.CasesType false,Misctypes.IntroAnonymous,None)) rtnpo; (* "=> P" is there were a P "=> _" else *) Loc.ghost,[],List.make (List.length thepats) (PatVar(Loc.ghost,Anonymous)), (* "|_,..,_" *) GHole(Loc.ghost,Evar_kinds.ImpossibleCase,Misctypes.IntroAnonymous,None) (* "=> _" *)])) in |