addurl: Bugfix: Did not properly add file in direct mode.
This commit is contained in:
parent
36913bc042
commit
7b4733f0e8
6 changed files with 49 additions and 31 deletions
|
@ -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
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue