diff options
author | 2009-04-16 14:49:25 -0400 | |
---|---|---|
committer | 2009-04-16 14:49:25 -0400 | |
commit | 03deca916331e44c37a0ba46d4bbae6a12b54385 (patch) | |
tree | 1560f6013ce6de0388180550168c20e9756eaa2c /src/core_print.sml | |
parent | 59809464cf40942ec6d1787eeb5d3080e2b074f9 (diff) |
Label exported symbols by effect-ness; factor out some common datatypes
Diffstat (limited to 'src/core_print.sml')
-rw-r--r-- | src/core_print.sml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |