diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-08-16 14:32:18 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-16 14:32:18 -0400 |
commit | b4f1361d2dff2e180e4656efa491b275707cdf02 (patch) | |
tree | dc76b47422a5d2bcdbd78d9b9ab35fe30b4991c8 /src/source.sml | |
parent | c8fa648dbc2489ca4a56abbb27d94819fb75b5ec (diff) |
Initial type class support
Diffstat (limited to 'src/source.sml')
-rw-r--r-- | src/source.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/source.sml b/src/source.sml index 70851c73..f8a12a93 100644 --- a/src/source.sml +++ b/src/source.sml @@ -83,6 +83,8 @@ datatype sgn_item' = | SgiInclude of sgn | SgiConstraint of con * con | SgiTable of string * con + | SgiClassAbs of string + | SgiClass of string * con and sgn' = SgnConst of sgn_item list @@ -119,7 +121,7 @@ datatype exp' = | ECut of exp * con | EFold - | ESqlInfer + | EWild | ECase of exp * (pat * exp) list @@ -139,6 +141,7 @@ datatype decl' = | DOpenConstraints of string * string list | DExport of str | DTable of string * con + | DClass of string * con and str' = StrConst of decl list |