From 2286c970ce9d32a630e289df2685dbdff8e18217 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 3 Dec 2011 10:00:10 -0500
Subject: Allow sources to be returned by RPCs

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

(limited to 'src/jscomp.sml')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index 3e475899..16043ba5 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -310,6 +310,8 @@ fun process file =
 
               | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st)
 
+              | TSource => ("parseSource(t[i++], t[i++])", st)
+
               | TOption t =>
                 let
                     val (e, st) = unurlifyExp loc (t, st)
-- 
cgit v1.2.3