Mercurial > urweb
comparison src/demo.sml @ 866:03e7f111fe99
Start of multi-DBMS support
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 28 Jun 2009 13:49:32 -0400 |
parents | 305bc0a431de |
children | 8f2159040bbb |
comparison
equal
deleted
inserted
replaced
865:ebefb0609ac3 | 866:03e7f111fe99 |
---|---|
104 clientOnly = [], | 104 clientOnly = [], |
105 serverOnly = [], | 105 serverOnly = [], |
106 jsFuncs = [], | 106 jsFuncs = [], |
107 rewrites = #rewrites combined @ #rewrites urp, | 107 rewrites = #rewrites combined @ #rewrites urp, |
108 filterUrl = #filterUrl combined @ #filterUrl urp, | 108 filterUrl = #filterUrl combined @ #filterUrl urp, |
109 filterMime = #filterMime combined @ #filterMime urp | 109 filterMime = #filterMime combined @ #filterMime urp, |
110 protocol = mergeWith #2 (#protocol combined, #protocol urp), | |
111 dbms = mergeWith #2 (#dbms combined, #dbms urp) | |
110 } | 112 } |
111 | 113 |
112 val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp") | 114 val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp") |
113 | 115 |
114 fun capitalize "" = "" | 116 fun capitalize "" = "" |