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

crazy optimisation

Browse source 
Crazy like a fox..
This commit is contained in:
Joey Hess 2012-06-10 19:58:34 -04:00
parent c1b432ee54
commit ca9ee21bd7
4 changed files with 54 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Git/UpdateIndex.hs
View file

@ -24,7 +24,6 @@ import Git
import Git.Types
import Git.Command
import Git.FilePath
import Git.HashObject
import Git.Sha
{- Streamers are passed a callback and should feed it lines in the form
@ -70,10 +69,10 @@ unstageFile file repo = do
return $ pureStreamer $ "0 " ++ show nullSha ++ "\t" ++ getTopFilePath p
{- A streamer that adds a symlink to the index. -}
stageSymlink :: FilePath -> String -> Repo -> IO Streamer
stageSymlink file linktext repo = do
stageSymlink :: FilePath -> Sha -> Repo -> IO Streamer
stageSymlink file sha repo = do
line <- updateIndexLine
<$> hashObject BlobObject linktext repo
<$> pure sha
<*> pure SymlinkBlob
<*> toTopFilePath file repo
return $ pureStreamer line