1 files changed, 7 insertions, 0 deletions
diff --git a/src/prepare.sml b/src/prepare.sml
index e7afc77f..58344a1f 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -202,6 +202,13 @@ fun prepExp (e as (_, loc), st) =
             ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), st)
         end
 
+      | ERedirect (e, t) =>
+        let
+            val (e, st) = prepExp (e, st)
+        in
+            ((ERedirect (e, t), loc), st)
+        end
+
       | EWrite e =>
         let
             val (e, st) = prepExp (e, st)