From bdaacae3e78f73278c156cc82ddd60a6f93c65b9 Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sun, 18 Dec 2016 19:20:51 +0100
Subject: [PATCH] Fix Primary Keys count.

That was broken in a recent patch refactoring the PostgreSQL SQL execute
API that now accepts a list of commands to execute.
---
 src/sources/common/db-methods.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/sources/common/db-methods.lisp b/src/sources/common/db-methods.lisp
index 188094a..ab6fc3a 100644
--- a/src/sources/common/db-methods.lisp
+++ b/src/sources/common/db-methods.lisp
@@ -133,7 +133,9 @@
     ;; Turn UNIQUE indexes into PRIMARY KEYS now
     ;;
     (unless data-only
-      (pgsql-execute-with-timing :post "Primary Keys" pkeys)
+      (pgsql-execute-with-timing :post "Primary Keys"
+                                 pkeys
+                                 :count (length pkeys))
 
       ;;
       ;; Foreign Key Constraints