mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactoring

Browse source 
no behavior changes
This commit is contained in:
Joey Hess 2015-12-22 13:23:33 -04:00
parent ca2c977704
commit 8e9608d7f0
Failed to extract signature
9 changed files with 239 additions and 213 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/AddUnused.hs
View file

@ -10,7 +10,7 @@ module Command.AddUnused where
import Common.Annex
import Logs.Location
import Command
import qualified Command.Add
import Annex.Ingest
import Command.Unused (withUnusedMaps, UnusedMaps(..), startUnused)
import Types.Key
@ -31,7 +31,7 @@ start = startUnused "addunused" perform
perform :: Key -> CommandPerform
perform key = next $ do
logStatus key InfoPresent
Command.Add.addLink file key Nothing
addLink file key Nothing
return True
where
file = "unused." ++ key2file key