Mercurial > urweb

comparison src/mysql.sml @ 2103:661b531f55bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix arguments to PQprepare()
author Adam Chlipala <adam@chlipala.net>
date Wed, 07 Jan 2015 09:25:13 -0500
parents 6bea98c7f736
children d2a98983f502
comparison
equal deleted inserted replaced
2102:0bd46c9e363f 2103:661b531f55bd
444 newline, 444 newline,
445 string "MYSQL_STMT *stmt;", 445 string "MYSQL_STMT *stmt;",
446 newline, 446 newline,
447 newline, 447 newline,
448 448
449 p_list_sepi newline (fn i => fn (s, n) => 449 p_list_sepi newline (fn i => fn (s, _) =>
450 let 450 let
451 fun uhoh this s args = 451 fun uhoh this s args =
452 box [p_list_sepi (box []) 452 box [p_list_sepi (box [])
453 (fn j => fn () => 453 (fn j => fn () =>
454 box [string 454 box [string