summaryrefslogtreecommitdiff
path: root/Command/Fsck.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-07 15:19:44 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-07 15:19:44 -0400
commit0a11b35d89104fa0b9653f15963d273a0d3585c3 (patch)
treef09621e0443bb526975543299adf1aefb64b47ef /Command/Fsck.hs
parent727158ff5546233e6f6b8bd8543c9514e3bd7af6 (diff)
extend Git.Queue to be able to queue more than simple git commands
While I was in there, I noticed and fixed a bug in the queue size calculations. It was never encountered only because Queue.add was only ever run with 1 file in the list.
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r--Command/Fsck.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs
index ae21acf8a..1fc656207 100644
--- a/Command/Fsck.hs
+++ b/Command/Fsck.hs
@@ -155,7 +155,7 @@ fixLink key file = do
liftIO $ createDirectoryIfMissing True (parentDir file)
liftIO $ removeFile file
liftIO $ createSymbolicLink want file
- Annex.Queue.add "add" [Param "--force", Param "--"] [file]
+ Annex.Queue.addCommand "add" [Param "--force", Param "--"] [file]
return True
{- Checks that the location log reflects the current status of the key,