diff options
Diffstat (limited to 'Command/Unused.hs')
-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 |