diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-08 10:28:32 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-08 10:28:32 -0400 |
| commit | baf22271ef6e646c97ddfa1e4193a8857816c67d (patch) | |
| tree | 1d34bf6404d3e94e6862c5fedbc4e53ed6bab883 /src/source.sml | |
| parent | 51fd5b1af6b2af7706c0c8604129d99e504a2d36 (diff) | |
Parametrized datatypes through explify
Diffstat (limited to 'src/source.sml')
| -rw-r--r-- | src/source.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/source.sml b/src/source.sml index d58feb94..505dd172 100644 --- a/src/source.sml +++ b/src/source.sml @@ -71,7 +71,7 @@ withtype con = con' located datatype sgn_item' = SgiConAbs of string * kind | SgiCon of string * kind option * con - | SgiDatatype of string * (string * con option) list + | SgiDatatype of string * string list * (string * con option) list | SgiDatatypeImp of string * string list * string | SgiVal of string * con | SgiStr of string * sgn @@ -120,7 +120,7 @@ withtype exp = exp' located datatype decl' = DCon of string * kind option * con - | DDatatype of string * (string * con option) list + | DDatatype of string * string list * (string * con option) list | DDatatypeImp of string * string list * string | DVal of string * con option * exp | DValRec of (string * con option * exp) list |