c3d40b9ec3
Each command that first checks preferred content (and/or required content) and then does something that can change the sizes of repositories needs to call prepareLiveUpdate, and plumb it through the preferred content check and the location log update. So far, only Command.Drop is done. Many other commands that don't need to do this have been updated to keep working. There may be some calls to NoLiveUpdate in places where that should be done. All will need to be double checked. Not currently in a compilable state.
43 lines
1.1 KiB
Haskell
43 lines
1.1 KiB
Haskell
{- git-annex command
|
||
-
|
||
- Copyright 2012-2023 Joey Hess <id@joeyh.name>
|
||
-
|
||
- Licensed under the GNU AGPL version 3 or higher.
|
||
-}
|
||
|
||
{-# LANGUAGE OverloadedStrings #-}
|
||
|
||
module Command.AddUnused where
|
||
|
||
import Logs.Location
|
||
import Command
|
||
import Annex.Ingest
|
||
import Command.Unused (withUnusedMaps, UnusedMaps(..), startUnused)
|
||
|
||
cmd :: Command
|
||
cmd = withAnnexOptions [jsonOptions] $
|
||
command "addunused" SectionMaintenance
|
||
"add back unused files"
|
||
(paramRepeating paramNumRange) (withParams seek)
|
||
|
||
seek :: CmdParams -> CommandSeek
|
||
seek = withUnusedMaps start
|
||
|
||
start :: UnusedMaps -> Int -> CommandStart
|
||
start = startUnused go (other "bad") (other "tmp")
|
||
where
|
||
go n key = do
|
||
let file = "unused." <> keyFile key
|
||
starting "addunused"
|
||
(ActionItemTreeFile file)
|
||
(SeekInput [show n]) $
|
||
next $ do
|
||
logStatus NoLiveUpdate key InfoPresent
|
||
addSymlink file key Nothing
|
||
return True
|
||
|
||
{- 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. -}
|
||
other n _ _ = giveup $ "cannot addunused " ++ n ++ "content"
|
||
|