diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-23 13:19:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-23 13:19:28 -0400 |
| commit | b05c08b5c1ad0deacec8943128e1eec8362471a9 (patch) | |
| tree | 292f9c9c7dbc3d924a10a2c5ecfcf3fd2d097a9e | |
| parent | 3b1c80d7950216ea90f706d975ff663cb92e52c5 (diff) | |
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.)
| -rw-r--r-- | Command/Find.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |