From 6d021ead0f73c5a28080b50a1bd08b1ab72590c9 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 16 Apr 2009 14:49:25 -0400 Subject: Label exported symbols by effect-ness; factor out some common datatypes --- src/mono.sml | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'src/mono.sml') diff --git a/src/mono.sml b/src/mono.sml index d60c552c..dedb41ea 100644 --- a/src/mono.sml +++ b/src/mono.sml @@ -29,7 +29,7 @@ structure Mono = struct 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 @@ datatype exp' = 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 @@ datatype decl' = | DCookie of string | DStyle of string - withtype decl = decl' located type file = decl list -- cgit v1.2.3