diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-19 14:48:42 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-19 14:48:42 -0400 |
| commit | 2ec103cb68110deee36e8445d7320d0297ed4342 (patch) | |
| tree | a57c1f474343773854f726b3ca3531af2d4cfbcd /Logs/Web.hs | |
| parent | 5f90fe2a343ba513682513d1b1b8019f85b1ac9f (diff) | |
sync, pre-commit, indirect: Avoid unnecessarily catting non-symlink files from git, which can be so large it runs out of memory.
Diffstat (limited to 'Logs/Web.hs')
| -rw-r--r-- | Logs/Web.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Logs/Web.hs b/Logs/Web.hs index 0239f2335..ede600ec2 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -18,6 +18,7 @@ module Logs.Web ( ) where import qualified Data.ByteString.Lazy.Char8 as L +import Data.Tuple.Utils import Common.Annex import Logs @@ -70,7 +71,7 @@ knownUrls = do Annex.Branch.withIndex $ do top <- fromRepo Git.repoPath (l, cleanup) <- inRepo $ Git.LsFiles.stagedDetails [top] - r <- mapM (geturls . snd) $ filter (isUrlLog . fst) l + r <- mapM (geturls . snd3) $ filter (isUrlLog . fst3) l void $ liftIO cleanup return $ concat r where |