From 5c154f05f5e4735d999927925a771b3a21f5a22d Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sun, 28 Jun 2009 13:49:32 -0400 Subject: Start of multi-DBMS support --- src/main.mlton.sml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/main.mlton.sml') 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) -- cgit v1.2.3