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

dropunused, addunused: Allow "all" instead of a range to act on all unused data.

Browse source
This commit is contained in:
Joey Hess 2013-11-18 17:24:18 -04:00
parent 446dd74f56
commit 0d0e21ea57
3 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Command/Unused.hs
View file

@ -332,11 +332,13 @@ withUnusedMaps a params = do
unused <- readUnusedLog ""
unusedbad <- readUnusedLog "bad"
unusedtmp <- readUnusedLog "tmp"
let m = unused `M.union` unusedbad `M.union` unusedtmp
return $ map (a $ UnusedMaps unused unusedbad unusedtmp) $
concatMap unusedSpec params
concatMap (unusedSpec m) params
unusedSpec :: String -> [Int]
unusedSpec spec
unusedSpec :: UnusedMap -> String -> [Int]
unusedSpec m spec
| spec == "all" = [fst (M.findMin m)..fst (M.findMax m)]
| "-" `isInfixOf` spec = range $ separate (== '-') spec
| otherwise = maybe badspec (: []) (readish spec)
where