diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-12 21:13:15 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-12 21:13:15 -0400 |
| commit | da62edb42af02ce34e9ea69edcd8ec2f30cdd625 (patch) | |
| tree | f001c384056798363557aea62914d5bead850cd0 /Git/UpdateIndex.hs | |
| parent | 7d458c40db7778f677c00cbc076d37b5e4abf60d (diff) | |
optimisation and memory leak fix
Diffstat (limited to 'Git/UpdateIndex.hs')
| -rw-r--r-- | Git/UpdateIndex.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Git/UpdateIndex.hs b/Git/UpdateIndex.hs index 31e8a45b2..abdc4bcbe 100644 --- a/Git/UpdateIndex.hs +++ b/Git/UpdateIndex.hs @@ -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 |