simplified to use existing functions
This commit is contained in:
parent
22243b87d2
commit
ab9b971f8f
1 changed files with 1 additions and 6 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue