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

finished converting all the main options

Browse source
This commit is contained in:
Joey Hess 2015-07-10 13:18:46 -04:00
parent 5cc882a35e
commit 6a4f2087be
22 changed files with 165 additions and 122 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Drop.hs
View file

@ -23,9 +23,10 @@ import Annex.Notification
import qualified Data.Set as S
cmd :: Command
cmd = command "drop" SectionCommon
"remove content of files from repository"
paramPaths (seek <$$> optParser)
cmd = withGlobalOptions annexedMatchingOptions $
command "drop" SectionCommon
"remove content of files from repository"
paramPaths (seek <$$> optParser)
data DropOptions = DropOptions
{ dropFiles :: CmdParams
@ -34,8 +35,6 @@ data DropOptions = DropOptions
, keyOptions :: Maybe KeyOptions
}
-- TODO: annexedMatchingOptions
optParser :: CmdParamsDesc -> Parser DropOptions
optParser desc = DropOptions
<$> cmdParams desc