From f47af837f76a49a6b8bcca24ea1a1e1fcfefab02 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 19 Oct 2008 15:47:47 -0400 Subject: Support for URL prefixes that works with local demo --- src/demo.sml | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/demo.sml') 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 => -- cgit v1.2.3