Basis.url and redirects

1 files changed, 14 insertions, 0 deletions

diff --git a/src/cjr_print.sml b/src/cjr_print.sml
index e459db62..a1d5ed2c 100644
--- a/src/cjr_print.sml
+++ b/src/cjr_print.sml
@@ -1451,6 +1451,20 @@ fun p_exp' par env (e, loc) =
              string "tmp;",
              newline,
              string "})"]
+      | ERedirect (e, t) =>
+        box [string "({",
+             newline,
+             p_typ env t,
+             space,
+             string "tmp;",
+             newline,
+             string "uw_redirect(ctx, ",
+             p_exp env e,
+             string ");",
+             newline,
+             string "tmp;",
+             newline,
+             string "})"]
       | EApp ((EError (e, (TFun (_, ran), _)), loc), _) =>
         p_exp env (EError (e, ran), loc)
       | EApp ((EReturnBlob {blob, mimeType, t = (TFun (_, ran), _)}, loc), _) =>