Mercurial > urweb
diff src/elab_env.sig @ 753:d484df4e841a
Preparing to allow views in SELECT FROM clauses
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 28 Apr 2009 14:02:23 -0400 |
parents | 059074c8d2fc |
children | 56bd4a4f6e66 |
line wrap: on
line diff
--- a/src/elab_env.sig Tue Apr 28 11:18:27 2009 -0400 +++ b/src/elab_env.sig Tue Apr 28 14:02:23 2009 -0400 @@ -71,7 +71,8 @@ val pushClass : env -> int -> env val isClass : env -> Elab.con -> bool - val resolveClass : (Elab.con -> Elab.con) -> env -> Elab.con -> Elab.exp option + val resolveClass : (Elab.con -> Elab.con) -> (Elab.con * Elab.con -> bool) + -> env -> Elab.con -> Elab.exp option val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list val pushERel : env -> string -> Elab.con -> env @@ -118,4 +119,6 @@ val patBinds : env -> Elab.pat -> env + exception Bad of Elab.con * Elab.con + end