mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

reorder less expensive terminal first

Browse source 
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
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/Find.hs
View file

@ -28,7 +28,7 @@ start :: FilePath -> (Key, Backend Annex) -> CommandStart
start file (key, _) = do start file (key, _) = do
-- only files inAnnex are shown, unless the user has requested -- only files inAnnex are shown, unless the user has requested
-- others via a limit -- others via a limit
whenM (liftM2 (||) (inAnnex key) limited) $ whenM (liftM2 (||) limited (inAnnex key)) $
unlessM (showFullJSON vars) $ do unlessM (showFullJSON vars) $ do
f <- Annex.getState Annex.format f <- Annex.getState Annex.format
case f of case f of