diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-28 13:49:32 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 13:49:32 -0400 |
| commit | 5404041e9b6c6c8bba38c58e510327c129df4cc7 (patch) | |
| tree | a31efa1a10c57b3b2db7f7ba7008b4871a70e2a6 /src/demo.sml | |
| parent | b43844e26af1f616ffb38e1b61a3f431218a63cd (diff) | |
Start of multi-DBMS support
Diffstat (limited to 'src/demo.sml')
| -rw-r--r-- | src/demo.sml | 4 |
1 files changed, 3 insertions, 1 deletions
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") |