Mercurial > urweb

diff src/demo.sml @ 385:1195f6e4d208

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support for URL prefixes that works with local demo
author Adam Chlipala <adamc@hcoop.net>
date Sun, 19 Oct 2008 15:47:47 -0400
parents 2a7e7bd7b29f
children c5a3d223f157
line wrap: on
line diff
--- a/src/demo.sml	Sun Oct 19 15:19:41 2008 -0400
+++ b/src/demo.sml	Sun Oct 19 15:47:47 2008 -0400
@@ -75,6 +75,7 @@
               | (SOME v1, SOME v2) => SOME (f (v1, v2))
 
         fun combiner (combined : Compiler.job, urp : Compiler.job) = {
+            prefix = prefix,
             database = mergeWith (fn (v1, v2) =>
                                      if v1 = v2 then
                                          v1
@@ -337,6 +338,9 @@
                                       TextIO.output (outf, "\n")))
                            (#database combined);
                 TextIO.output (outf, "sql demo.sql\n");
+                TextIO.output (outf, "prefix ");
+                TextIO.output (outf, prefix);
+                TextIO.output (outf, "\n");
                 TextIO.output (outf, "\n");
 
                 app (fn s =>