From 0bc0364c5cd75695bc66181cc3bd52a4d26c4c87 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 19 Mar 2014 14:49:01 -0400
Subject: Windows: Fix some filename encoding bugs.

http://git-annex.branchable.com/bugs/Unicode_file_names_ignored_on_Windows/

Not a complete fix yet.
---
 Annex/CatFile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Annex')

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
-- 
cgit v1.2.3