Mercurial > urweb
comparison src/sqlite.sml @ 2103:661b531f55bd
Fix arguments to PQprepare()
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Wed, 07 Jan 2015 09:25:13 -0500 |
parents | 6745eafff617 |
children |
comparison
equal
deleted
inserted
replaced
2102:0bd46c9e363f | 2103:661b531f55bd |
---|---|
200 newline, | 200 newline, |
201 string "uw_conn *conn = uw_get_db(ctx);", | 201 string "uw_conn *conn = uw_get_db(ctx);", |
202 newline, | 202 newline, |
203 newline, | 203 newline, |
204 | 204 |
205 p_list_sepi newline (fn i => fn (s, n) => | 205 p_list_sepi newline (fn i => fn (s, _) => |
206 let | 206 let |
207 fun uhoh this s args = | 207 fun uhoh this s args = |
208 box [p_list_sepi (box []) | 208 box [p_list_sepi (box []) |
209 (fn j => fn () => | 209 (fn j => fn () => |
210 box [string | 210 box [string |