simplified to use existing functions

This commit is contained in:
Joey Hess 2011-06-23 17:37:23 -04:00
parent 22243b87d2
commit ab9b971f8f

View file

@ -64,12 +64,7 @@ index g = gitAnnexDir g </> "index"
- and merge in changes from other branches.
-}
genIndex :: Git.Repo -> IO ()
genIndex g = do
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)
genIndex g = GitUnionMerge.ls_tree g fullname >>= GitUnionMerge.update_index g
{- Runs an action using the branch's index file. -}
withIndex :: Annex a -> Annex a