diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-27 16:31:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-27 16:31:35 -0400 |
| commit | 5b74b130a39d8c45e7d24520d838d6c1635582c7 (patch) | |
| tree | 3d2816f028e7135a168d64c6342e1a2588260417 /Command/Unlock.hs | |
| parent | 66194684acaf8dc5c72e5a163465b42050cf9212 (diff) | |
refactored and generalized pre-command sanity checking
Diffstat (limited to 'Command/Unlock.hs')
| -rw-r--r-- | Command/Unlock.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/Unlock.hs b/Command/Unlock.hs index 9b568b5a6..c89b61de7 100644 --- a/Command/Unlock.hs +++ b/Command/Unlock.hs @@ -15,9 +15,11 @@ import Utility.FileMode command :: [Command] command = - [ repoCommand "unlock" paramPaths seek "unlock files for modification" - , repoCommand "edit" paramPaths seek "same as unlock" + [ c "unlock" "unlock files for modification" + , c "edit" "same as unlock" ] + where + c n = Command n paramPaths needsRepo seek seek :: [CommandSeek] seek = [withFilesInGit start] |