diff options
author | 2014-01-22 16:35:32 -0400 | |
---|---|---|
committer | 2014-01-22 16:35:32 -0400 | |
commit | 180fbceee03badc450c84c28ef8219fa68d80bd6 (patch) | |
tree | 1739e92f46067ae0be84af6789b3d3b9adb09ee1 /Seek.hs | |
parent | 9a5de318d15f0234080a6f0bd802fe073cf57334 (diff) |
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.
Diffstat (limited to 'Seek.hs')
-rw-r--r-- | Seek.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 ) |