diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-10 19:53:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-10 19:53:31 -0400 |
| commit | 344f13394fe5b12cbdd5eeb99bb63892c7096bfd (patch) | |
| tree | 478ad78d49e9c3515bee1cd2afd24d3e435a19eb /CmdLine.hs | |
| parent | 93d2dc0d6878ccb1067376d2a03193c222429d3e (diff) | |
update
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs index d848ee8f9..3709f836b 100644 --- a/CmdLine.hs +++ b/CmdLine.hs @@ -10,8 +10,8 @@ import System.Console.GetOpt import Types import Annex -data Flag = Add FilePath | Push String | Pull String | - Want FilePath | Get (Maybe FilePath) | Drop FilePath +data Flag = Add FilePath | Push String | Pull String | Want FilePath | + Get (Maybe FilePath) | Drop FilePath | Unannex FilePath deriving Show options :: [OptDescr Flag] @@ -22,6 +22,7 @@ options = , Option ['w'] ["want"] (ReqArg Want "FILE") "request file contents" , Option ['g'] ["get"] (OptArg Get "FILE") "transfer file contents" , Option ['d'] ["drop"] (ReqArg Drop "FILE") "indicate file content not needed" + , Option ['u'] ["unannex"] (ReqArg Unannex "FILE") "undo --add" ] argvToFlags argv = do @@ -38,4 +39,5 @@ dispatch :: Flag -> State -> IO () dispatch flag state = do case (flag) of Add f -> annexFile state f + Unannex f -> unannexFile state f _ -> error "not implemented" |