diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-10 19:58:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-10 19:58:34 -0400 |
| commit | ca9ee21bd771e7f94ecd3916f55b10fb3cc8dcbe (patch) | |
| tree | 433fe04a4786139e0ff044e6921224d2f63d91c6 /Git/UpdateIndex.hs | |
| parent | c1b432ee54424c3943dee97ff2dd90c4cc533e9b (diff) | |
crazy optimisation
Crazy like a fox..
Diffstat (limited to 'Git/UpdateIndex.hs')
| -rw-r--r-- | Git/UpdateIndex.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Git/UpdateIndex.hs b/Git/UpdateIndex.hs index 07057ed98..31e8a45b2 100644 --- a/Git/UpdateIndex.hs +++ b/Git/UpdateIndex.hs @@ -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 |