Basis.url and redirects

1 files changed, 7 insertions, 0 deletions

diff --git a/src/jscomp.sml b/src/jscomp.sml
index 4be870cb..471711d2 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -870,6 +870,7 @@ fun process file =
                           | ENextval _ => unsupported "Nextval"
                           | EUnurlify _ => unsupported "EUnurlify"
                           | EReturnBlob _ => unsupported "EUnurlify"
+                          | ERedirect _ => unsupported "ERedirect"
 
                           | ESignalReturn e =>
                             let
@@ -1081,6 +1082,12 @@ fun process file =
                  in
                      ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st)
                  end
+               | ERedirect (e, t) =>
+                 let
+                     val (e, st) = exp outer (e, st)
+                 in
+                     ((ERedirect (e, t), loc), st)
+                 end
 
                | EWrite e =>
                  let