summaryrefslogtreecommitdiff
path: root/Annex
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-03-19 14:49:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-03-19 15:57:56 -0400
commit0bc0364c5cd75695bc66181cc3bd52a4d26c4c87 (patch)
tree56bce6cf12e7cfdc7c591d3b36f56221c5b5a2d1 /Annex
parent3b0e263a342cf8a369fcea6b1e41e0533ba2cc7f (diff)
Windows: Fix some filename encoding bugs.
Diffstat (limited to 'Annex')
-rw-r--r--Annex/CatFile.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Annex/CatFile.hs b/Annex/CatFile.hs
index fc722c8e7..6a778db03 100644
--- a/Annex/CatFile.hs
+++ b/Annex/CatFile.hs
@@ -80,7 +80,7 @@ catKey = catKey' True
catKey' :: Bool -> Ref -> FileMode -> Annex (Maybe Key)
catKey' modeguaranteed ref mode
| isSymLink mode = do
- l <- fromInternalGitPath . encodeW8 . L.unpack <$> get
+ l <- fromInternalGitPath . decodeBS <$> get
return $ if isLinkToAnnex l
then fileKey $ takeFileName l
else Nothing