Mercurial > urweb

diff src/mono.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 4c5796512edc
children 796e42c93c48
line wrap: on
line diff
--- a/src/mono.sml	Thu Apr 16 14:35:01 2009 -0400
+++ b/src/mono.sml	Thu Apr 16 14:49:25 2009 -0400
@@ -29,7 +29,7 @@
 
 type 'a located = 'a ErrorMsg.located
 
-datatype datatype_kind = datatype Core.datatype_kind
+datatype datatype_kind = datatype DatatypeKind.datatype_kind
 
 datatype typ' =
          TFun of typ * typ
@@ -115,11 +115,14 @@
 
 withtype exp = exp' located
 
+datatype effect = datatype Export.effect
+datatype export_kind = datatype Export.export_kind
+
 datatype decl' =
          DDatatype of string * int * (string * int * typ option) list
        | DVal of string * int * typ * exp * string
        | DValRec of (string * int * typ * exp * string) list
-       | DExport of Core.export_kind * string * int * typ list * typ
+       | DExport of export_kind * string * int * typ list * typ
 
        | DTable of string * (string * typ) list * exp * exp
        | DSequence of string
@@ -130,7 +133,6 @@
        | DCookie of string
        | DStyle of string
 
-
 withtype decl = decl' located
 
 type file = decl list