Mercurial > urweb

comparison src/demo.sml @ 1294:b4480a56cab7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Server-side 'onError'
author Adam Chlipala <adam@chlipala.net>
date Tue, 07 Sep 2010 08:28:07 -0400
parents 9d3ccb8b39ac
children 4359e185d3af
comparison
equal deleted inserted replaced
1293:acabf3935060 1294:b4480a56cab7
113 filterUrl = #filterUrl combined @ #filterUrl urp, 113 filterUrl = #filterUrl combined @ #filterUrl urp,
114 filterMime = #filterMime combined @ #filterMime urp, 114 filterMime = #filterMime combined @ #filterMime urp,
115 protocol = mergeWith #2 (#protocol combined, #protocol urp), 115 protocol = mergeWith #2 (#protocol combined, #protocol urp),
116 dbms = mergeWith #2 (#dbms combined, #dbms urp), 116 dbms = mergeWith #2 (#dbms combined, #dbms urp),
117 sigFile = mergeWith #2 (#sigFile combined, #sigFile urp), 117 sigFile = mergeWith #2 (#sigFile combined, #sigFile urp),
118 safeGets = [] 118 safeGets = [],
119 onError = NONE
119 } 120 }
120 121
121 val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp") 122 val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp")
122 123
123 fun capitalize "" = "" 124 fun capitalize "" = ""