From b05c08b5c1ad0deacec8943128e1eec8362471a9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 23 Dec 2011 13:19:28 -0400 Subject: reorder less expensive terminal first Out of general principles, it did not seem to actually speed it up appreciably. (I suspect ghc is being smart.) --- Command/Find.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Command') diff --git a/Command/Find.hs b/Command/Find.hs index 91386bbd0..1961e6b74 100644 --- a/Command/Find.hs +++ b/Command/Find.hs @@ -28,7 +28,7 @@ start :: FilePath -> (Key, Backend Annex) -> CommandStart start file (key, _) = do -- only files inAnnex are shown, unless the user has requested -- others via a limit - whenM (liftM2 (||) (inAnnex key) limited) $ + whenM (liftM2 (||) limited (inAnnex key)) $ unlessM (showFullJSON vars) $ do f <- Annex.getState Annex.format case f of -- cgit v1.2.3