add "unused" preferred content expression

With a really nice optimisation that keeps it from having any overhead
in normal operation!

This commit was sponsored by Ulises Vitulli.

1 files changed, 2 insertions, 2 deletions

diff --git a/Seek.hs b/Seek.hs
index 57bedfc84..3242dfb33 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -133,9 +133,9 @@ withKeyOptions keyop fallbackop params = do
 	auto <- Annex.getState Annex.auto
 	case    (allkeys || bare , unused, auto ) of
 		(True    , False , False) -> go loggedKeys
-		(False   , True  , False) -> go unusedKeys
+		(False   , True  , False) -> go unusedKeys'
 		(True    , True  , _    )
-			| bare && not allkeys -> go unusedKeys
+			| bare && not allkeys -> go unusedKeys'
 			| otherwise -> error "Cannot use --all with --unused."
 		(False   , False , _    ) -> fallbackop params
 		(_       , _     , True )