From e15223eba22e27f934c366b17a62c80f676360e8 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Apr 2013 13:35:52 -0400 Subject: addurl: Bugfix: Did not properly add file in direct mode. --- Command/AddUnused.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Command/AddUnused.hs') 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 -- cgit v1.2.3