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/core_print.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/core_print.sml')

diff --git a/src/core_print.sml b/src/core_print.sml
index 8d8f275c..683b1b90 100644
--- a/src/core_print.sml
+++ b/src/core_print.sml
@@ -470,8 +470,8 @@ fun p_vali env (x, n, t, e, s) =
 fun p_export_kind ck =
     case ck of
         Link => string "link"
-      | Action => string "action"
-      | Rpc => string "rpc"
+      | Action _ => string "action"
+      | Rpc _ => string "rpc"
 
 fun p_datatype env (x, n, xs, cons) =
     let
-- 
cgit v1.2.3