Mercurial > urweb

diff src/source.sml @ 563:44958d74c43f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial conversion to arbitrary-kind classes
author Adam Chlipala <adamc@hcoop.net>
date Fri, 19 Dec 2008 10:03:31 -0500
parents ae03d09043c1
children 8998114760c1
line wrap: on
line diff
--- a/src/source.sml	Fri Dec 19 09:35:44 2008 -0500
+++ b/src/source.sml	Fri Dec 19 10:03:31 2008 -0500
@@ -81,8 +81,8 @@
        | SgiSgn of string * sgn
        | SgiInclude of sgn
        | SgiConstraint of con * con
-       | SgiClassAbs of string
-       | SgiClass of string * con
+       | SgiClassAbs of string * kind
+       | SgiClass of string * kind * con
 
 and sgn' =
     SgnConst of sgn_item list
@@ -154,7 +154,7 @@
        | DExport of str
        | DTable of string * con
        | DSequence of string
-       | DClass of string * con
+       | DClass of string * kind * con
        | DDatabase of string
        | DCookie of string * con