diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-12 10:44:19 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-12 10:44:19 -0500 |
| commit | f52635b782fab64b3ef306da22ad3eb7eeeaabfe (patch) | |
| tree | a4f8a6807bc7c0fa9edf44842288e16bec12cd3b /src | |
| parent | 805a3eda8adf0482ea539dadc7e6c745056a04a8 (diff) | |
-prefix command-line option
Diffstat (limited to 'src')
| -rw-r--r-- | src/compiler.sml | 2 | ||||
| -rw-r--r-- | src/main.mlton.sml | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 655f8ced..10a63d51 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -445,7 +445,7 @@ fun parseUrp' accLibs fname = readSources acc end - val prefix = ref NONE + val prefix = ref (case Settings.getUrlPrefix () of "/" => NONE | s => SOME s) val database = ref (Settings.getDbstring ()) val exe = ref (Settings.getExe ()) val sql = ref (Settings.getSql ()) diff --git a/src/main.mlton.sml b/src/main.mlton.sml index a434ef12..06c04366 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -46,6 +46,9 @@ fun doArgs args = | "-protocol" :: name :: rest => (Settings.setProtocol name; doArgs rest) + | "-prefix" :: prefix :: rest => + (Settings.setUrlPrefix prefix; + doArgs rest) | "-db" :: s :: rest => (Settings.setDbstring (SOME s); doArgs rest) |