--force will cause add, etc, to operate on ignored files.

This commit is contained in:
Joey Hess 2011-06-29 11:42:00 -04:00
parent fb7663ceb8
commit b3aaf980e4
6 changed files with 23 additions and 9 deletions

View file

@ -11,6 +11,7 @@ import Control.Monad.State (liftIO)
import System.Posix.Files
import Command
import qualified Annex
import qualified AnnexQueue
import qualified Backend
import LocationLog
@ -60,5 +61,8 @@ cleanup file key = do
let mtime = modificationTime s
liftIO $ touch file (TimeSpec mtime) False
AnnexQueue.add "add" [Param "--"] file
force <- Annex.getState Annex.force
if force
then AnnexQueue.add "add" [Param "-f", Param "--"] file
else AnnexQueue.add "add" [Param "--"] file
return True