From 0a058b7935af5a78cd415ea153721141c4de645f Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 24 Nov 2014 12:13:22 +0200
Subject: [PATCH] A little more verbose on updating

---
 Application.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Application.hs b/Application.hs
index 8dded46..dd61140 100644
--- a/Application.hs
+++ b/Application.hs
@@ -272,7 +272,7 @@ appLoadCabalFiles updateDB forceUpdate env dbconf p = do
         UploadState uploadHistory newUploads _ newMD <- loadCabalFiles updateDB forceUpdate uploadHistory0 metadata0
         $logInfo "Inserting to new uploads"
         runDB' $ insertMany_ newUploads
-        $logInfo "Updating metadatas"
+        $logInfo $ "Updating metadatas: " ++ tshow (length newMD)
         runDB' $ do
             let newMD' = toList newMD
             deleteWhere [MetadataName <-. map metadataName newMD']