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 | cc1ee568ed458ba1e693074d0dad9a27235b7963 (patch) | |
tree | f7c0ceec6bc23f7f071fd62af0d4fe01bc00858e /src/mysql.sml | |
parent | b6bb5d0ed06785194ec9a717232fc95618758c66 (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 |