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

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