diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-12-26 14:45:07 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-12-26 14:45:07 -0400 |
| commit | 39b8965ae940af4e9b6b5a3a4d8b1b0a454e853e (patch) | |
| tree | 22e30f044e0be627bf1f8840f97ec74d884fa483 /Annex/View.hs | |
| parent | 0d048cb1f2df7672b2c77802edc994182ff1458d (diff) | |
remove dead code
Diffstat (limited to 'Annex/View.hs')
| -rw-r--r-- | Annex/View.hs | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/Annex/View.hs b/Annex/View.hs index 8ddbb9c63..6524fd5c5 100644 --- a/Annex/View.hs +++ b/Annex/View.hs @@ -329,8 +329,7 @@ narrowView = applyView' viewedFileReuse getViewedFileMetaData - Look up the metadata of annexed files, and generate any ViewedFiles, - and stage them. - - - Currently only works in indirect mode. Must be run from top of - - repository. + - Must be run from top of repository. -} applyView' :: MkViewedFile -> (FilePath -> MetaData) -> View -> Annex Git.Branch applyView' mkviewedfile getfilemetadata view = do @@ -373,24 +372,6 @@ applyView' mkviewedfile getfilemetadata view = do liftIO . Git.UpdateIndex.streamUpdateIndex' uh =<< inRepo (Git.UpdateIndex.stageSymlink f sha) -{- Applies a view to the reference branch, generating a new branch - - for the View. - - - - This needs to work incrementally, to quickly update the view branch - - when the reference branch is changed. So, it works based on an - - old version of the reference branch, uses diffTree to find the - - changes, and applies those changes to the view branch. - -} -updateView :: View -> Git.Ref -> Git.Ref -> Annex Git.Branch -updateView view ref oldref = genViewBranch view $ do - (diffs, cleanup) <- inRepo $ DiffTree.diffTree oldref ref - forM_ diffs go - void $ liftIO cleanup - where - go diff - | DiffTree.dstsha diff == nullSha = error "TODO delete file" - | otherwise = error "TODO add file" - {- Diff between currently checked out branch and staged changes, and - update metadata to reflect the changes that are being committed to the - view. |