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

optimisation and memory leak fix

Browse source
This commit is contained in:
Joey Hess 2012-06-12 21:13:15 -04:00
parent 7d458c40db
commit da62edb42a
2 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Git/UpdateIndex.hs
View file

@ -71,7 +71,7 @@ unstageFile file repo = do
{- A streamer that adds a symlink to the index. -}
stageSymlink :: FilePath -> Sha -> Repo -> IO Streamer
stageSymlink file sha repo = do
line <- updateIndexLine
!line <- updateIndexLine
<$> pure sha
<*> pure SymlinkBlob
<*> toTopFilePath file repo