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

refactored and generalized pre-command sanity checking

Browse source
This commit is contained in:
Joey Hess 2011-10-27 16:31:35 -04:00
parent 66194684ac
commit 5b74b130a3
38 changed files with 73 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Lock.hs
View file

@ -13,7 +13,7 @@ import qualified Annex.Queue
import Backend
command :: [Command]
command = [repoCommand "lock" paramPaths seek "undo unlock command"]
command = [Command "lock" paramPaths needsRepo seek "undo unlock command"]
seek :: [CommandSeek]
seek = [withFilesUnlocked start, withFilesUnlockedToBeCommitted start]