From 7e10920b75383cd953898468385ae29e76bf184d Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 16 Jul 2009 13:59:30 -0400
Subject: MySQL accepts generated demo DDL

---
 src/postgres.sml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/postgres.sml')

diff --git a/src/postgres.sml b/src/postgres.sml
index 7096a5cf..26825363 100644
--- a/src/postgres.sml
+++ b/src/postgres.sml
@@ -860,7 +860,9 @@ val () = addDbms {name = "postgres",
                   sqlifyString = sqlifyString,
                   p_cast = p_cast,
                   p_blank = p_blank,
-                  supportsDeleteAs = true}
+                  supportsDeleteAs = true,
+                  createSequence = fn s => "CREATE SEQUENCE " ^ s,
+                  textKeysNeedLengths = false}
 
 val () = setDbms "postgres"
 
-- 
cgit v1.2.3