summaryrefslogtreecommitdiff
path: root/src/sqlite.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-12-13 14:20:41 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-12-13 14:20:41 -0500
commitf5449b93792afc81e4da70d2a790ef7a2d2b49d5 (patch)
tree14b2deefac4e078e2d5e4e5bdd076749de8659d8 /src/sqlite.sml
parent2319f2ff07432849cc88956ad92467edd2e8bf5e (diff)
Initializers and setval
Diffstat (limited to 'src/sqlite.sml')
-rw-r--r--src/sqlite.sml2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/sqlite.sml b/src/sqlite.sml
index 8a61c25e..440c7c28 100644
--- a/src/sqlite.sml
+++ b/src/sqlite.sml
@@ -757,6 +757,7 @@ fun nextval {loc, seqE, seqName} =
newline]
fun nextvalPrepared _ = raise Fail "SQLite.nextvalPrepared called"
+fun setval _ = raise Fail "SQLite.setval called"
fun sqlifyString s = "'" ^ String.translate (fn #"'" => "''"
| ch =>
@@ -783,6 +784,7 @@ val () = addDbms {name = "sqlite",
dmlPrepared = dmlPrepared,
nextval = nextval,
nextvalPrepared = nextvalPrepared,
+ setval = setval,
sqlifyString = sqlifyString,
p_cast = p_cast,
p_blank = p_blank,