diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-14 15:33:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-14 15:33:21 -0400 |
| commit | 11994ebb3dc50a74dea9601907493950ac3540a4 (patch) | |
| tree | eb691467da168ace2e6895a1623b019c82974b91 | |
| parent | 5a1f10325f218bb2289e263ce1bdfd4a504467e0 (diff) | |
tweak
| -rw-r--r-- | Command/Whereis.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Whereis.hs b/Command/Whereis.hs index 74660f283..ef4303b3a 100644 --- a/Command/Whereis.hs +++ b/Command/Whereis.hs @@ -30,8 +30,7 @@ start file = isAnnexed file $ \(key, _) -> do perform :: Key -> CommandPerform perform key = do - locations <- keyLocations key - (untrustedlocations, safelocations) <- trustPartition UnTrusted locations + (untrustedlocations, safelocations) <- trustPartition UnTrusted =<< keyLocations key let num = length safelocations showNote $ show num ++ " " ++ copiesplural num pp <- prettyPrintUUIDs "whereis" safelocations |