From 6d021ead0f73c5a28080b50a1bd08b1ab72590c9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 16 Apr 2009 14:49:25 -0400
Subject: Label exported symbols by effect-ness; factor out some common
 datatypes

---
 src/elab.sml | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/elab.sml')

diff --git a/src/elab.sml b/src/elab.sml
index 41bc85dd..f82a947d 100644
--- a/src/elab.sml
+++ b/src/elab.sml
@@ -81,10 +81,7 @@ datatype con' =
 
 withtype con = con' located
 
-datatype datatype_kind =
-         Enum
-       | Option
-       | Default
+datatype datatype_kind = datatype DatatypeKind.datatype_kind
 
 datatype patCon =
          PConVar of int
-- 
cgit v1.2.3