From bc7a09d702e53faaa882bb7b2591abe68ff5648e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 26 Apr 2009 09:02:17 -0400
Subject: Returning a blob as page result

---
 src/prepare.sml | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/prepare.sml')

diff --git a/src/prepare.sml b/src/prepare.sml
index 52308540..25306e89 100644
--- a/src/prepare.sml
+++ b/src/prepare.sml
@@ -156,6 +156,14 @@ fun prepExp (e as (_, loc), sns) =
             ((EError (e, t), loc), sns)
         end
 
+      | EReturnBlob {blob, mimeType, t} =>
+        let
+            val (blob, sns) = prepExp (blob, sns)
+            val (mimeType, sns) = prepExp (mimeType, sns)
+        in
+            ((EReturnBlob {blob = blob, mimeType = mimeType, t = t}, loc), sns)
+        end
+
       | EWrite e =>
         let
             val (e, sns) = prepExp (e, sns)
-- 
cgit v1.2.3