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

lock: Require --force.

Browse source
This commit is contained in:
Joey Hess 2013-12-05 16:05:07 -04:00
parent 139c4c3a9f
commit cde099fe80
3 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/Lock.hs
View file

@ -10,6 +10,7 @@ module Command.Lock where
import Common.Annex
import Command
import qualified Annex.Queue
import qualified Annex
def :: [Command]
def = [notDirect $ command "lock" paramPaths seek SectionCommon
@ -21,6 +22,8 @@ seek = [withFilesUnlocked start, withFilesUnlockedToBeCommitted start]
start :: FilePath -> CommandStart
start file = do
showStart "lock" file
unlessM (Annex.getState Annex.force) $
error "Locking this file would discard any changes you have made to it. Use 'git annex add' to stage your changes. (Or, use --force to override)"
next $ perform file
perform :: FilePath -> CommandPerform