diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-10-19 15:47:47 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-10-19 15:47:47 -0400 |
commit | f47af837f76a49a6b8bcca24ea1a1e1fcfefab02 (patch) | |
tree | d6ab2f51a59206e3173d0f40da9266f3fb11fdc5 /src/demo.sml | |
parent | 0a1e81c5811d640c00d5b5984d2254e0d8521743 (diff) |
Support for URL prefixes that works with local demo
Diffstat (limited to 'src/demo.sml')
-rw-r--r-- | src/demo.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/demo.sml b/src/demo.sml index 5bb11fa5..80506576 100644 --- a/src/demo.sml +++ b/src/demo.sml @@ -75,6 +75,7 @@ fun make {prefix, dirname} = | (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 @@ fun make {prefix, dirname} = 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 => |