diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-28 13:49:32 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 13:49:32 -0400 |
| commit | 5c154f05f5e4735d999927925a771b3a21f5a22d (patch) | |
| tree | a31efa1a10c57b3b2db7f7ba7008b4871a70e2a6 /src/main.mlton.sml | |
| parent | 5952e97040dd9331865368bb726b8059dbedbc5a (diff) | |
Start of multi-DBMS support
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 62fb6509..7498bb5e 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -41,6 +41,9 @@ fun doArgs args = | "-protocol" :: name :: rest => (Settings.setProtocol name; doArgs rest) + | "-dbms" :: name :: rest => + (Settings.setDbms name; + doArgs rest) | "-debug" :: rest => (Settings.setDebug true; doArgs rest) |