Mercurial > urweb

diff src/core_print.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 5819fb63c93a
line wrap: on
line diff
--- a/src/core_print.sml	Thu Apr 16 14:35:01 2009 -0400
+++ b/src/core_print.sml	Thu Apr 16 14:49:25 2009 -0400
@@ -470,8 +470,8 @@
 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