From 2e4d220fbdbee54f07d0ab1bfccd050880012c25 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Fri, 17 Jul 2009 12:58:37 -0400
Subject: MySQL CGI working

---
 src/settings.sml | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/settings.sml')

diff --git a/src/settings.sml b/src/settings.sml
index d47e7d0e..d1901483 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -343,7 +343,8 @@ type dbms = {
      createSequence : string -> string,
      textKeysNeedLengths : bool,
      supportsNextval : bool,
-     supportsNestedPrepared : bool
+     supportsNestedPrepared : bool,
+     sqlPrefix : string
 }
 
 val dbmses = ref ([] : dbms list)
@@ -365,7 +366,8 @@ val curDb = ref ({name = "",
                   createSequence = fn _ => "",
                   textKeysNeedLengths = false,
                   supportsNextval = false,
-                  supportsNestedPrepared = false} : dbms)
+                  supportsNestedPrepared = false,
+                  sqlPrefix = ""} : dbms)
 
 fun addDbms v = dbmses := v :: !dbmses
 fun setDbms s =
-- 
cgit v1.2.3