addurl: Bugfix: Did not properly add file in direct mode.

This commit is contained in:
Joey Hess 2013-04-11 13:35:52 -04:00
parent 36913bc042
commit 7b4733f0e8
6 changed files with 49 additions and 31 deletions

View file

@ -9,6 +9,7 @@ module Command.AddUnused where
import Common.Annex
import Logs.Unused
import Logs.Location
import Command
import qualified Command.Add
import Types.Key
@ -26,7 +27,10 @@ start = startUnused "addunused" perform
(performOther "tmp")
perform :: Key -> CommandPerform
perform key = next $ Command.Add.cleanup file key True
perform key = next $ do
logStatus key InfoPresent
Command.Add.addLink file key False
return True
where
file = "unused." ++ key2file key