From 697bb401dbb2a9497e8e3cbc895052ad87a75c23 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 17 Oct 2016 14:58:33 -0400
Subject: refactor

---
 Upgrade/V5.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Upgrade')

diff --git a/Upgrade/V5.hs b/Upgrade/V5.hs
index e5ca505ac..a05f2e051 100644
--- a/Upgrade/V5.hs
+++ b/Upgrade/V5.hs
@@ -15,6 +15,7 @@ import Annex.Link
 import Annex.Direct
 import Annex.Content
 import Annex.CatFile
+import Annex.WorkTree
 import qualified Database.Keys
 import qualified Annex.Content.Direct as Direct
 import qualified Git
@@ -31,7 +32,7 @@ upgrade :: Bool -> Annex Bool
 upgrade automatic = do
 	unless automatic $
 		showAction "v5 to v6"
-	Database.Keys.scanAssociatedFiles
+	scanUnlockedFiles
 	whenM isDirect $ do
 		{- Direct mode makes the same tradeoff of using less disk
 		 - space, with less preservation of old versions of files
-- 
cgit v1.2.3