From df21cbfdd2b7342c206ebd4aea32d989328374dc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 6 Jan 2012 04:02:35 -0400 Subject: look up --to and --from remote names only once This will speed up commands like move and drop. --- Command/Find.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command/Find.hs') diff --git a/Command/Find.hs b/Command/Find.hs index eb0267c14..8760cc947 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -33,7 +33,7 @@ seek :: [CommandSeek] seek = [withField "format" formatconverter $ \f -> withFilesInGit $ whenAnnexed $ start f] where - formatconverter = maybe Nothing (Just . Utility.Format.gen) + formatconverter = return . maybe Nothing (Just . Utility.Format.gen) start :: Maybe Utility.Format.Format -> FilePath -> (Key, Backend) -> CommandStart start format file (key, _) = do -- cgit v1.2.3