From a40345f235da57bd4a2128c4e92c17c4e2033f48 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 25 Nov 2011 17:19:34 -0500
Subject: Support 'safeGet' in demos

---
 src/demo.sml | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/demo.sml')

diff --git a/src/demo.sml b/src/demo.sml
index b9976a0c..729dd218 100644
--- a/src/demo.sml
+++ b/src/demo.sml
@@ -119,7 +119,7 @@ fun make' {prefix, dirname, guided} =
             protocol = mergeWith #2 (#protocol combined, #protocol urp),
             dbms = mergeWith #2 (#dbms combined, #dbms urp),
             sigFile = mergeWith #2 (#sigFile combined, #sigFile urp),
-            safeGets = [],
+            safeGets = #safeGets combined @ #safeGets urp,
             onError = NONE,
             minHeap = 0
         }
@@ -426,6 +426,10 @@ fun make' {prefix, dirname, guided} =
                          TextIO.output (outf, "\n"))) (#rewrites combined);
                 filters "url" (#filterUrl combined);
                 filters "mime" (#filterMime combined);
+                app (fn path =>
+                        (TextIO.output (outf, "safeGet ");
+                         TextIO.output (outf, path);
+                         TextIO.output (outf, "\n"))) (#safeGets combined);
                 TextIO.output (outf, "\n");
 
                 app (fn s =>
-- 
cgit v1.2.3