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.)
This commit is contained in:
Joey Hess 2011-12-23 13:19:28 -04:00
parent 3b1c80d795
commit b05c08b5c1

View file

@ -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