diff options
author | 2010-12-12 10:44:19 -0500 | |
---|---|---|
committer | 2010-12-12 10:44:19 -0500 | |
commit | 20c074b4a6082a5687278c6df85e7ad0234c7556 (patch) | |
tree | a4f8a6807bc7c0fa9edf44842288e16bec12cd3b /src/main.mlton.sml | |
parent | 023488cde9c968df265df1bd8b2358f5c2216115 (diff) |
-prefix command-line option
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r-- | src/main.mlton.sml | 3 |
1 files changed, 3 insertions, 0 deletions
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) |