Mercurial > urweb

diff src/core.sml @ 731:e0dd85ea58e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Label exported symbols by effect-ness; factor out some common datatypes
author Adam Chlipala <adamc@hcoop.net>
date Thu, 16 Apr 2009 14:49:25 -0400
parents acb8537f58f0
children 8688e01ae469
line wrap: on
line diff
--- a/src/core.sml	Thu Apr 16 14:35:01 2009 -0400
+++ b/src/core.sml	Thu Apr 16 14:49:25 2009 -0400
@@ -70,7 +70,7 @@
 
 withtype con = con' located
 
-datatype datatype_kind = datatype Elab.datatype_kind
+datatype datatype_kind = datatype DatatypeKind.datatype_kind
 
 datatype patCon =
          PConVar of int
@@ -119,10 +119,8 @@
 
 withtype exp = exp' located
 
-datatype export_kind =
-         Link
-       | Action
-       | Rpc
+datatype effect = datatype Export.effect
+datatype export_kind = datatype Export.export_kind
 
 datatype decl' =
          DCon of string * int * kind * con