summaryrefslogtreecommitdiff
path: root/Command/AddUnused.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-11 13:35:52 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-11 13:35:52 -0400
commite15223eba22e27f934c366b17a62c80f676360e8 (patch)
treeb0a86335757bf247b6ae956db3ca902086ba7997 /Command/AddUnused.hs
parent321bae61104bd64126aedb3b03093ff6e4daf35a (diff)
addurl: Bugfix: Did not properly add file in direct mode.
Diffstat (limited to 'Command/AddUnused.hs')
-rw-r--r--Command/AddUnused.hs6
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