diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-03-19 14:49:01 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-19 15:57:56 -0400 |
| commit | 0bc0364c5cd75695bc66181cc3bd52a4d26c4c87 (patch) | |
| tree | 56bce6cf12e7cfdc7c591d3b36f56221c5b5a2d1 /Command/Unused.hs | |
| parent | 3b0e263a342cf8a369fcea6b1e41e0533ba2cc7f (diff) | |
Windows: Fix some filename encoding bugs.
http://git-annex.branchable.com/bugs/Unicode_file_names_ignored_on_Windows/
Not a complete fix yet.
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index c174cd256..3e844e5a8 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -10,7 +10,6 @@ module Command.Unused where import qualified Data.Set as S -import qualified Data.ByteString.Lazy as L import Data.BloomFilter import Data.BloomFilter.Easy import Data.BloomFilter.Hash @@ -296,7 +295,7 @@ withKeysReferencedInGitRef a ref = do liftIO $ void clean where tKey True = fmap fst <$$> Backend.lookupFile . getTopFilePath . DiffTree.file - tKey False = fileKey . takeFileName . encodeW8 . L.unpack <$$> + tKey False = fileKey . takeFileName . decodeBS <$$> catFile ref . getTopFilePath . DiffTree.file {- Looks in the specified directory for bad/tmp keys, and returns a list |