aboutsummaryrefslogtreecommitdiff
path: root/Upgrade
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-06-29 11:55:16 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-06-29 11:55:16 -0400
commit06a1f5f74286795708b219de8fb080077ff134a7 (patch)
treecfdb751f3ae77c307e8da1268ff55b9d887212e4 /Upgrade
parentaf45d422248846869babdbc3eae2765d94ea9f20 (diff)
factor out file list stuff from GitRepo
GitRepo is getting too large an interface; these all fit nicely into a submodule.
Diffstat (limited to 'Upgrade')
-rw-r--r--Upgrade/V1.hs3
1 files changed, 2 insertions, 1 deletions
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