diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 16:41:10 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-28 16:41:10 -0400 |
commit | 3daf3393e53937e9ea2b1e308e5ebd05ffa35a5a (patch) | |
tree | f7c0ceec6bc23f7f071fd62af0d4fe01bc00858e /src/mysql.sml | |
parent | 566f9f69e1abbed1891e5eec4a94325c79572f16 (diff) |
Moved nextval code into Settings
Diffstat (limited to 'src/mysql.sml')
-rw-r--r-- | src/mysql.sml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/mysql.sml b/src/mysql.sml index 27b4ca77..6f3d99cd 100644 --- a/src/mysql.sml +++ b/src/mysql.sml @@ -257,6 +257,8 @@ fun query _ = raise Fail "MySQL query" fun queryPrepared _ = raise Fail "MySQL queryPrepared" fun dml _ = raise Fail "MySQL dml" fun dmlPrepared _ = raise Fail "MySQL dmlPrepared" +fun nextval _ = raise Fail "MySQL nextval" +fun nextvalPrepared _ = raise Fail "MySQL nextvalPrepared" val () = addDbms {name = "mysql", header = "mysql/mysql.h", @@ -277,6 +279,8 @@ val () = addDbms {name = "mysql", query = query, queryPrepared = queryPrepared, dml = dml, - dmlPrepared = dmlPrepared} + dmlPrepared = dmlPrepared, + nextval = nextval, + nextvalPrepared = nextvalPrepared} end |