diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-06-29 11:55:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-06-29 11:55:16 -0400 |
| commit | 06a1f5f74286795708b219de8fb080077ff134a7 (patch) | |
| tree | cfdb751f3ae77c307e8da1268ff55b9d887212e4 /Upgrade | |
| parent | af45d422248846869babdbc3eae2765d94ea9f20 (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.hs | 3 |
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 |