summaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-09 15:59:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-09 15:59:49 -0400
commit536bc97d25479ac969273b49442c2fd8c31358c4 (patch)
treeaeb19878fd34ff88e69f0f1c3faa019e8cc180c5 /CmdLine.hs
parentd56feda25dd82ffa34fe5e3f28eff3ecf9eac5b5 (diff)
lock and unlock subcommands
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index 3823c7247..adcf25e9a 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -30,6 +30,8 @@ import qualified Command.SetKey
import qualified Command.Fix
import qualified Command.Init
import qualified Command.Fsck
+import qualified Command.Unlock
+import qualified Command.Lock
subCmds :: [SubCommand]
subCmds =
@@ -41,6 +43,10 @@ subCmds =
"indicate content of files not currently wanted"
, SubCommand "move" path (withFilesInGit Command.Move.start)
"transfer content of files to/from another repository"
+ , SubCommand "unlock" path (withFilesInGit Command.Unlock.start)
+ "unlock files for modification"
+ , SubCommand "lock" path (withFilesInGit Command.Lock.start)
+ "undo unlock command"
, SubCommand "init" desc (withDescription Command.Init.start)
"initialize git-annex with repository description"
, SubCommand "unannex" path (withFilesInGit Command.Unannex.start)