diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-28 14:02:23 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-28 14:02:23 -0400 |
| commit | 488033c82277ffe87f8fbd32ccd52298e0883743 (patch) | |
| tree | 97c50c49b7e1358f4cc22a2d9adf9f6d4b911353 /src/elab_env.sig | |
| parent | d309cb3084e4063fc82db2dce315c5d92c4939e4 (diff) | |
Preparing to allow views in SELECT FROM clauses
Diffstat (limited to 'src/elab_env.sig')
| -rw-r--r-- | src/elab_env.sig | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/elab_env.sig b/src/elab_env.sig index 1621722f..a5b8751a 100644 --- a/src/elab_env.sig +++ b/src/elab_env.sig @@ -71,7 +71,8 @@ signature ELAB_ENV = sig 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 @@ signature ELAB_ENV = sig val patBinds : env -> Elab.pat -> env + exception Bad of Elab.con * Elab.con + end |