diff options
Diffstat (limited to 'Command/AddUnused.hs')
| -rw-r--r-- | Command/AddUnused.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Command/AddUnused.hs b/Command/AddUnused.hs index c352d87d0..33acc4487 100644 --- a/Command/AddUnused.hs +++ b/Command/AddUnused.hs @@ -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 |