diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-12-15 15:34:28 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-12-15 15:34:28 -0400 |
commit | 59654d08a2335bf716f38b76095121c6e4c62535 (patch) | |
tree | f4d450caa09cfc4e373ee946b2cef956f9429757 /Annex/View.hs | |
parent | 271fe1ce457447b0aee8d825b9186a0b579b56d0 (diff) |
reorg
Diffstat (limited to 'Annex/View.hs')
-rw-r--r-- | Annex/View.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/View.hs b/Annex/View.hs index 567522a54..8ddbb9c63 100644 --- a/Annex/View.hs +++ b/Annex/View.hs @@ -22,7 +22,7 @@ import Git.Sha import Git.HashObject import Git.Types import Git.FilePath -import qualified Backend +import Annex.WorkTree import Annex.Index import Annex.Link import Annex.CatFile @@ -342,7 +342,7 @@ applyView' mkviewedfile getfilemetadata view = do hasher <- inRepo hashObjectStart forM_ l $ \f -> do relf <- getTopFilePath <$> inRepo (toTopFilePath f) - go uh hasher relf =<< Backend.lookupFile f + go uh hasher relf =<< lookupFile f liftIO $ do hashObjectStop hasher void $ stopUpdateIndex uh |