diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-07-29 12:30:04 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-29 12:30:04 -0400 |
commit | 4cbbb0bb751dd9e9dae9d6b621e563ee5c7ae1b4 (patch) | |
tree | 13fe85f442a35d516a1591c98af5b85e0cf1f6b7 /src/elab.sml | |
parent | 21f2ec92093d2b00afe3d36476f20f45b4d4a194 (diff) |
Add datatype import constructor annotations; datatypes through explify
Diffstat (limited to 'src/elab.sml')
-rw-r--r-- | src/elab.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elab.sml b/src/elab.sml index e0ccee25..b258d7e5 100644 --- a/src/elab.sml +++ b/src/elab.sml @@ -94,7 +94,7 @@ datatype sgn_item' = 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 @@ and sgn = sgn' located 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 |