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/cjr_print.sml | |
| parent | 6d06bc0105d704373295c749aa65cc92488ac56c (diff) | |
Label exported symbols by effect-ness; factor out some common datatypes
Diffstat (limited to 'src/cjr_print.sml')
| -rw-r--r-- | src/cjr_print.sml | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/cjr_print.sml b/src/cjr_print.sml index d6852455..e834300d 100644 --- a/src/cjr_print.sml +++ b/src/cjr_print.sml @@ -2208,8 +2208,8 @@ fun p_file env (ds, ps) = val fields = foldl (fn ((ek, _, _, ts, _, _), fields) => case ek of Core.Link => fields - | Core.Rpc => fields - | Core.Action => + | Core.Rpc _ => fields + | Core.Action _ => case List.nth (ts, length ts - 2) of (TRecord i, _) => let @@ -2331,8 +2331,8 @@ fun p_file env (ds, ps) = val (ts, defInputs, inputsVar) = case ek of Core.Link => (List.take (ts, length ts - 1), string "", string "") - | Core.Rpc => (List.take (ts, length ts - 1), string "", string "") - | Core.Action => + | Core.Rpc _ => (List.take (ts, length ts - 1), string "", string "") + | Core.Action _ => case List.nth (ts, length ts - 2) of (TRecord i, _) => let @@ -2414,8 +2414,8 @@ fun p_file env (ds, ps) = string "if (*request == '/') ++request;", newline, box (case ek of - Core.Rpc => [string "uw_write_header(ctx, \"Content-type: text/plain\\r\\n\");", - newline] + Core.Rpc _ => [string "uw_write_header(ctx, \"Content-type: text/plain\\r\\n\");", + newline] | _ => [string "uw_write_header(ctx, \"Content-type: text/html\\r\\n\");", newline, string "uw_write_header(ctx, \"Content-script-type: text/javascript\\r\\n\");", @@ -2457,12 +2457,12 @@ fun p_file env (ds, ps) = newline]) ts), defInputs, box (case ek of - Core.Rpc => [p_typ env ran, - space, - string "it0", - space, - string "=", - space] + Core.Rpc _ => [p_typ env ran, + space, + string "it0", + space, + string "=", + space] | _ => []), p_enamed env n, string "(", @@ -2474,7 +2474,7 @@ fun p_file env (ds, ps) = string ", uw_unit_v);", newline, box (case ek of - Core.Rpc => [urlify env ran] + Core.Rpc _ => [urlify env ran] | _ => [string "uw_write(ctx, \"</html>\");", newline]), string "return;", |