diff options
author | 2009-06-28 13:49:32 -0400 | |
---|---|---|
committer | 2009-06-28 13:49:32 -0400 | |
commit | 5404041e9b6c6c8bba38c58e510327c129df4cc7 (patch) | |
tree | a31efa1a10c57b3b2db7f7ba7008b4871a70e2a6 /src/main.mlton.sml | |
parent | b43844e26af1f616ffb38e1b61a3f431218a63cd (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) |