diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-16 14:49:25 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-16 14:49:25 -0400 |
| commit | 6d021ead0f73c5a28080b50a1bd08b1ab72590c9 (patch) | |
| tree | 1560f6013ce6de0388180550168c20e9756eaa2c /src/core_print.sml | |
| parent | 6d06bc0105d704373295c749aa65cc92488ac56c (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 |