unused: When large files are checked right into git, avoid buffering their contents in memory.

This makes it a little bit slower since it has to check file size,
but worth it to fix a potential memory use problem.

This commit was sponsored by Fernando Jimenez on Patreon.

CHANGELOG

@@ -9,6 +9,8 @@ git-annex (6.20170102) UNRELEASED; urgency=medium
   * config: New command for storing configuration in the git-annex branch.
   * stack.yaml: Update to lts-7.18.
   * Some optimisations to string splitting code.
+  * unused: When large files are checked right into git, avoid buffering
+    their contents in memory.
 
  -- Joey Hess <id@joeyh.name>  Fri, 06 Jan 2017 15:22:06 -0400
 

Command/Unused.hs

@@ -25,7 +25,6 @@ import qualified Git.LsFiles as LsFiles
 import qualified Git.DiffTree as DiffTree
 import qualified Remote
 import qualified Annex.Branch
-import Annex.Link
 import Annex.CatFile
 import Annex.WorkTree
 import Types.RefSpec
@@ -272,8 +271,7 @@ withKeysReferencedDiff a getdiff extractsha = do
   	go d = do
 		let sha = extractsha d
 		unless (sha == nullSha) $
-			(parseLinkOrPointer <$> catObject sha)
-				>>= maybe noop a
+			catKey sha >>= maybe noop a
 
 {- Filters out keys that have an associated file that's not modified. -}
 associatedFilesFilter :: [Key] -> Annex [Key]