unused: Pay attention to symlinks that are not yet staged in the index.

Command/Unused.hs

@@ -241,7 +241,7 @@ withKeysReferenced' mdir initial a = do
 			( return ([], return True)
 			, do
 				top <- fromRepo Git.repoPath
-				inRepo $ LsFiles.inRepo [top]
+				inRepo $ LsFiles.allFiles [top]
 			)
 		Just dir -> inRepo $ LsFiles.inRepo [dir]
 	go v [] = return v

Git/LsFiles.hs

@@ -8,6 +8,7 @@
 module Git.LsFiles (
 	inRepo,
 	notInRepo,
+	allFiles,
 	deleted,
 	modified,
 	staged,
@@ -41,6 +42,11 @@ notInRepo include_ignored l repo = pipeNullSplit params repo
 		| include_ignored = []
 		| otherwise = [Param "--exclude-standard"]
 
+{- Finds all files in the specified locations, whether checked into git or
+ - not. -}
+allFiles :: [FilePath] -> Repo -> IO ([FilePath], IO Bool)
+allFiles l = pipeNullSplit $ Params "ls-files --cached --others -z --" : map File l
+
 {- Returns a list of files in the specified locations that have been
  - deleted. -}
 deleted :: [FilePath] -> Repo -> IO ([FilePath], IO Bool)

debian/changelog

@@ -8,6 +8,7 @@ git-annex (4.20130816) UNRELEASED; urgency=low
     --duplicate, --deduplicate, and --clean-duplicates
   * mirror: New command, makes two repositories contain the same set of files.
   * Set --clobber when running wget to ensure resuming works properly.
+  * unused: Pay attention to symlinks that are not yet staged in the index.
 
  -- Joey Hess <joeyh@debian.org>  Thu, 15 Aug 2013 15:47:52 +0200