Mercurial > urweb

diff src/elab.sml @ 162:06a98129b23f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add datatype import constructor annotations; datatypes through explify
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 12:30:04 -0400
parents 34ccd7d2bea8
children c7a6e6dbc318
line wrap: on
line diff
--- a/src/elab.sml	Thu Jul 24 16:51:24 2008 -0400
+++ b/src/elab.sml	Tue Jul 29 12:30:04 2008 -0400
@@ -94,7 +94,7 @@
          SgiConAbs of string * int * kind
        | SgiCon of string * int * kind * con
        | SgiDatatype of string * int * (string * int * con option) list
-       | SgiDatatypeImp of string * int * int * string list * string
+       | SgiDatatypeImp of string * int * int * string list * string * (string * int * con option) list
        | SgiVal of string * int * con
        | SgiStr of string * int * sgn
        | SgiSgn of string * int * sgn
@@ -114,7 +114,7 @@
 datatype decl' =
          DCon of string * int * kind * con
        | DDatatype of string * int * (string * int * con option) list
-       | DDatatypeImp of string * int * int * string list * string
+       | DDatatypeImp of string * int * int * string list * string * (string * int * con option) list
        | DVal of string * int * con * exp
        | DValRec of (string * int * con * exp) list
        | DSgn of string * int * sgn