diff options
author | 2009-04-16 15:29:39 -0400 | |
---|---|---|
committer | 2009-04-16 15:29:39 -0400 | |
commit | 431abe6b2d53ed42d5019a5263e8014de8920eb4 (patch) | |
tree | fa0fcff27c8418c9e6beccbce3c846678e71f07e /src/core_print.sml | |
parent | 03deca916331e44c37a0ba46d4bbae6a12b54385 (diff) |
Effectness analysis
Diffstat (limited to 'src/core_print.sml')
-rw-r--r-- | src/core_print.sml | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/core_print.sml b/src/core_print.sml index 683b1b90..9c1c72cd 100644 --- a/src/core_print.sml +++ b/src/core_print.sml @@ -467,12 +467,6 @@ fun p_vali env (x, n, t, e, s) = p_exp env e] end -fun p_export_kind ck = - case ck of - Link => string "link" - | Action _ => string "action" - | Rpc _ => string "rpc" - fun p_datatype env (x, n, xs, cons) = let val k = (KType, ErrorMsg.dummySpan) @@ -538,7 +532,7 @@ fun p_decl env (dAll as (d, _) : decl) = end | DExport (ek, n) => box [string "export", space, - p_export_kind ek, + Export.p_export_kind ek, space, p_enamed env n, space, |