diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-03-27 11:26:06 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-03-27 11:26:06 -0400 |
| commit | 0b941d68e7ceba9302d57eb8083e8244602a09ce (patch) | |
| tree | f74a786d667b2b1c70bb39e9a1bfb5c8f58bd5d5 /src/postgres.sml | |
| parent | bef4dd04f19c2001561e9e889116f5a2f8905bc0 (diff) | |
| parent | 8e114ff992a3e730f2eb42095267969eebf75c36 (diff) | |
Merge.
Diffstat (limited to 'src/postgres.sml')
| -rw-r--r-- | src/postgres.sml | 6 |
1 files changed, 2 insertions, 4 deletions
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, |