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

convert all commands to work with optparse-applicative

Browse source 
Still no options though.
This commit is contained in:
Joey Hess 2015-07-08 15:08:02 -04:00
parent 3125da54f6
commit 6e5c1f8db3
99 changed files with 391 additions and 297 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Command/Unused.hs
View file

@ -36,9 +36,9 @@ import Annex.BloomFilter
cmd :: Command
cmd = withOptions [unusedFromOption, refSpecOption] $
command "unused" paramNothing
SectionMaintenance "look for unused file content"
(commandParser seek)
command "unused" SectionMaintenance
"look for unused file content"
paramNothing (withParams seek)
unusedFromOption :: Option
unusedFromOption = fieldOption ['f'] "from" paramRemote "remote to check for unused content"
@ -268,7 +268,7 @@ data UnusedMaps = UnusedMaps
, unusedTmpMap :: UnusedMap
}
withUnusedMaps :: (UnusedMaps -> Int -> CommandStart) -> CommandSeek
withUnusedMaps :: (UnusedMaps -> Int -> CommandStart) -> CmdParams -> CommandSeek
withUnusedMaps a params = do
unused <- readUnusedMap ""
unusedbad <- readUnusedMap "bad"