summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2015-01-07 09:25:13 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2015-01-07 09:25:13 -0500
commit2127b8bbe36c8864919c03a8f09aee5db6595c72 (patch)
treeb5d0772c9e5df9006b1929f81ba46b1f7422314b /src
parentf1204c9d8702aa2b394d777c0552f5e9cc0e9fce (diff)
Fix arguments to PQprepare()
Diffstat (limited to 'src')
-rw-r--r--src/mysql.sml2
-rw-r--r--src/postgres.sml6
-rw-r--r--src/sqlite.sml2
3 files changed, 4 insertions, 6 deletions
diff --git a/src/mysql.sml b/src/mysql.sml
index 29a8c68f..bb654fee 100644
--- a/src/mysql.sml
+++ b/src/mysql.sml
@@ -446,7 +446,7 @@ fun init {dbstring, prepared = ss, tables, views, sequences} =
newline,
newline,
- p_list_sepi newline (fn i => fn (s, n) =>
+ p_list_sepi newline (fn i => fn (s, _) =>
let
fun uhoh this s args =
box [p_list_sepi (box [])
diff --git a/src/postgres.sml b/src/postgres.sml
index b97226c1..6df0331a 100644
--- a/src/postgres.sml
+++ b/src/postgres.sml
@@ -340,14 +340,12 @@ fun init {dbstring, prepared = ss, tables, views, sequences} =
newline,
newline,
- p_list_sepi newline (fn i => fn (s, n) =>
+ p_list_sepi newline (fn i => fn (s, _) =>
box [string "res = PQprepare(conn, \"uw",
string (Int.toString i),
string "\", \"",
string (Prim.toCString s),
- string "\", ",
- string (Int.toString n),
- string ", NULL);",
+ string "\", 0, NULL);",
newline,
string "if (PQresultStatus(res) != PGRES_COMMAND_OK) {",
newline,
diff --git a/src/sqlite.sml b/src/sqlite.sml
index c138415b..a1095709 100644
--- a/src/sqlite.sml
+++ b/src/sqlite.sml
@@ -202,7 +202,7 @@ fun init {dbstring, prepared = ss, tables, views, sequences} =
newline,
newline,
- p_list_sepi newline (fn i => fn (s, n) =>
+ p_list_sepi newline (fn i => fn (s, _) =>
let
fun uhoh this s args =
box [p_list_sepi (box [])