From 11994ebb3dc50a74dea9601907493950ac3540a4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2011 15:33:21 -0400 Subject: tweak --- Command/Whereis.hs | 3 +-- 1 file changed, 1 insertion(+), 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 -- cgit v1.2.3