From 5c154f05f5e4735d999927925a771b3a21f5a22d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 28 Jun 2009 13:49:32 -0400
Subject: Start of multi-DBMS support

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

(limited to 'src/demo.sml')

diff --git a/src/demo.sml b/src/demo.sml
index 21242d73..b8323993 100644
--- a/src/demo.sml
+++ b/src/demo.sml
@@ -106,7 +106,9 @@ fun make {prefix, dirname, guided} =
             jsFuncs = [],
             rewrites = #rewrites combined @ #rewrites urp,
             filterUrl = #filterUrl combined @ #filterUrl urp,
-            filterMime = #filterMime combined @ #filterMime urp
+            filterMime = #filterMime combined @ #filterMime urp,
+            protocol = mergeWith #2 (#protocol combined, #protocol urp),
+            dbms = mergeWith #2 (#dbms combined, #dbms urp)
         }
 
         val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp")
-- 
cgit v1.2.3