diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-11-12 17:45:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-11-12 17:45:12 -0400 |
| commit | 04edae6791b4eddaa77dda2407264dc4434d74b7 (patch) | |
| tree | 3c42dfa812220f003b53cb47ce4ff1e73dd1f108 /Command | |
| parent | cea65b9e5bf6bcc9a9350703dbbb0951c6e00c82 (diff) | |
Optimised union merging; now only runs git cat-file once.
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Unused.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 9d56d1ff1..34d8ac232 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -197,7 +197,7 @@ getKeysReferencedInGit ref = do findkeys c (l:ls) | isSymLink (LsTree.mode l) = do content <- catFile ref $ LsTree.file l - case fileKey (takeFileName content) of + case fileKey (takeFileName $ L.unpack content) of Nothing -> findkeys c ls Just k -> findkeys (k:c) ls | otherwise = findkeys c ls |