diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2011-12-29 16:08:34 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2011-12-29 16:08:34 -0500 |
| commit | 634eee2d60c71d5a50e6bc6c3364d49548f58599 (patch) | |
| tree | a7c6ec7ebc81baeeb6594b39d1c370c9aa9c582d /src/postgres.sml | |
| parent | 09acf221dc8c0f1a19d737e98a952ff633c9330c (diff) | |
Add dynamic content before running its scripts, to get IDs in scope; fix generation of Postgres queries with blobs
Diffstat (limited to 'src/postgres.sml')
| -rw-r--r-- | src/postgres.sml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/postgres.sml b/src/postgres.sml index f3b9e3f1..c180e38f 100644 --- a/src/postgres.sml +++ b/src/postgres.sml @@ -680,7 +680,7 @@ fun makeParams inputs = string " };", newline, if List.exists isBlob inputs then - box [string "const int *paramLengths = uw_malloc(ctx, ", + box [string "int *paramLengths = uw_malloc(ctx, ", string (Int.toString (length inputs)), string " * sizeof(int));", newline, @@ -696,7 +696,6 @@ fun makeParams inputs = | _ => string "0", string ";", newline]) inputs, - string " };", newline] else box [string "const int *paramLengths = paramFormats;", |