Mercurial > urweb

diff src/elab_env.sig @ 174:7ee424760d2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Elaborating module constructor patterns; parsing record patterns
author Adam Chlipala <adamc@hcoop.net>
date Thu, 31 Jul 2008 11:28:55 -0400
parents c7a6e6dbc318
children 8e9f97508f0d
line wrap: on
line diff
--- a/src/elab_env.sig	Thu Jul 31 10:44:52 2008 -0400
+++ b/src/elab_env.sig	Thu Jul 31 11:28:55 2008 -0400
@@ -88,6 +88,8 @@
     val projectCon : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> (Elab.kind * Elab.con option) option
     val projectDatatype : env -> { sgn : Elab.sgn, str : Elab.str, field : string }
                           -> (string * int * Elab.con option) list option
+    val projectConstructor : env -> { sgn : Elab.sgn, str : Elab.str, field : string }
+                             -> (int * Elab.con option * Elab.con) option
     val projectVal : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> Elab.con option
     val projectSgn : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> Elab.sgn option
     val projectStr : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> Elab.sgn option