diff options
author | Joey Hess <joey@kitenet.net> | 2012-05-02 14:59:05 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-05-02 14:59:05 -0400 |
commit | 392931eca9191117ae5c9d479fabab1e8ecaf8df (patch) | |
tree | dcddce458b701d795c8b3ef7385ad955301c9ac0 /Command/AddUnused.hs | |
parent | 7d6b36dffbb11837a6fcfea3317b7d24ccbeeff7 (diff) |
addunused: New command, the opposite of dropunused, it relinks unused content into the git repository.
Diffstat (limited to 'Command/AddUnused.hs')
-rw-r--r-- | Command/AddUnused.hs | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/Command/AddUnused.hs b/Command/AddUnused.hs new file mode 100644 index 000000000..c498216dc --- /dev/null +++ b/Command/AddUnused.hs @@ -0,0 +1,34 @@ +{- git-annex command + - + - Copyright 2012 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Command.AddUnused where + +import Common.Annex +import Logs.Unused +import Command +import qualified Command.Add + +def :: [Command] +def = [command "addunused" (paramRepeating paramNumRange) + seek "add back unused files"] + +seek :: [CommandSeek] +seek = [withUnusedMaps start] + +start :: UnusedMaps -> Int -> CommandStart +start = startUnused "addunused" perform (performOther "bad") (performOther "tmp") + +perform :: Key -> CommandPerform +perform key = next $ Command.Add.cleanup file key True + where + file = "unused." ++ show key + +{- The content is not in the annex, but in another directory, and + - it seems better to error out, rather than moving bad/tmp content into + - the annex. -} +performOther :: String -> Key -> CommandPerform +performOther other _ = error $ "cannot addunused " ++ otherĀ ++ "content" |