mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplified to use existing functions

Browse source
This commit is contained in:
Joey Hess 2011-06-23 17:37:23 -04:00
parent 22243b87d2
commit ab9b971f8f
1 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Branch.hs
View file

@ -64,12 +64,7 @@ index g = gitAnnexDir g </> "index"
- and merge in changes from other branches. - and merge in changes from other branches.
-} -}
genIndex :: Git.Repo -> IO () genIndex :: Git.Repo -> IO ()
genIndex g = do genIndex g = GitUnionMerge.ls_tree g fullname >>= GitUnionMerge.update_index g
ls <- Git.pipeNullSplit g $
map Param ["ls-tree", "-z", "-r", "--full-tree", fullname]
forceSuccess =<< Git.pipeWrite g
(map Param ["update-index", "-z", "--index-info"])
(join "\0" ls)
{- Runs an action using the branch's index file. -} {- Runs an action using the branch's index file. -}
withIndex :: Annex a -> Annex a withIndex :: Annex a -> Annex a