From 2127b8bbe36c8864919c03a8f09aee5db6595c72 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Wed, 7 Jan 2015 09:25:13 -0500
Subject: Fix arguments to PQprepare()

---
 src/mysql.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/mysql.sml')

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 [])
-- 
cgit v1.2.3