From b04e123d0e1159d431aae00c3e8f1cc4a1b95684 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 10 Dec 2009 13:32:09 -0500
Subject: Basis.url and redirects

---
 src/jscomp.sml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/jscomp.sml')

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
-- 
cgit v1.2.3