diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Watch.hs | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/Command/Watch.hs b/Command/Watch.hs index bf544679d..c5d824864 100644 --- a/Command/Watch.hs +++ b/Command/Watch.hs @@ -19,9 +19,6 @@ import qualified Annex.Queue import qualified Command.Add import qualified Git.Command import qualified Git.UpdateIndex -import Git.HashObject -import Git.Types -import Git.FilePath import qualified Backend import Annex.Content @@ -140,9 +137,6 @@ onErr = warning {- Adds a symlink to the index, without ever accessing the actual symlink - on disk. -} stageSymlink :: FilePath -> String -> Annex () -stageSymlink file linktext = do - line <- Git.UpdateIndex.update_index_line - <$> inRepo (hashObject BlobObject linktext) - <*> pure SymlinkBlob - <*> inRepo (toTopFilePath file) - Annex.Queue.addUpdateIndex $ \streamer -> streamer line +stageSymlink file linktext = + Annex.Queue.addUpdateIndex =<< + inRepo (Git.UpdateIndex.stageSymlink file linktext) |