From 06a1f5f74286795708b219de8fb080077ff134a7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 29 Jun 2011 11:55:16 -0400 Subject: factor out file list stuff from GitRepo GitRepo is getting too large an interface; these all fit nicely into a submodule. --- Upgrade/V1.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Upgrade') diff --git a/Upgrade/V1.hs b/Upgrade/V1.hs index b06f00d34..cb6928fce 100644 --- a/Upgrade/V1.hs +++ b/Upgrade/V1.hs @@ -26,6 +26,7 @@ import LocationLog import qualified Annex import qualified AnnexQueue import qualified GitRepo as Git +import qualified GitRepo.LsFiles as LsFiles import Backend import Messages import Version @@ -92,7 +93,7 @@ updateSymlinks :: Annex () updateSymlinks = do showNote "updating symlinks..." g <- Annex.gitRepo - files <- liftIO $ Git.inRepo g [Git.workTree g] + files <- liftIO $ LsFiles.inRepo g [Git.workTree g] forM_ files $ fixlink where fixlink f = do -- cgit v1.2.3