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

avoid trying to find minimum element of empty map

Browse source
This commit is contained in:
Joey Hess 2014-01-18 11:38:01 -04:00
parent 1d3e60830d
commit 099c650292
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Unused.hs
View file

@ -338,7 +338,9 @@ withUnusedMaps a params = do
unusedSpec :: UnusedMap -> String -> [Int] unusedSpec :: UnusedMap -> String -> [Int]
unusedSpec m spec unusedSpec m spec
| spec == "all" = [fst (M.findMin m)..fst (M.findMax m)] | spec == "all" = if M.null m
then []
else [fst (M.findMin m)..fst (M.findMax m)]
| "-" `isInfixOf` spec = range $ separate (== '-') spec | "-" `isInfixOf` spec = range $ separate (== '-') spec
| otherwise = maybe badspec (: []) (readish spec) | otherwise = maybe badspec (: []) (readish spec)
where where