From be6b3d8ee966f58bbcc765401b6d9a09e71e7946 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 18 Jan 2014 11:38:01 -0400 Subject: avoid trying to find minimum element of empty map --- Command/Unused.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Command/Unused.hs') diff --git a/Command/Unused.hs b/Command/Unused.hs index 1e5cdc163..f99528cfa 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -338,7 +338,9 @@ withUnusedMaps a params = do unusedSpec :: UnusedMap -> String -> [Int] 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 | otherwise = maybe badspec (: []) (readish spec) where -- cgit v1.2.3