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 | 5c154f05f5e4735d999927925a771b3a21f5a22d (patch) | |
| tree | a31efa1a10c57b3b2db7f7ba7008b4871a70e2a6 /src/demo.sml | |
| parent | 5952e97040dd9331865368bb726b8059dbedbc5a (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") |