diff --git a/Annex/Content/Direct.hs b/Annex/Content/Direct.hs index 822ae0608c..889c272311 100644 --- a/Annex/Content/Direct.hs +++ b/Annex/Content/Direct.hs @@ -41,7 +41,10 @@ associatedFiles key = do associatedFilesRelative :: Key -> Annex [FilePath] associatedFilesRelative key = do mapping <- inRepo $ gitAnnexMapping key - liftIO $ catchDefaultIO [] $ lines <$> readFile mapping + liftIO $ catchDefaultIO [] $ do + h <- openFile mapping ReadMode + fileEncoding h + hClose h `after` (lines <$> hGetContents h) {- Changes the associated files information for a key, applying a - transformation to the list. Returns new associatedFiles value. -} @@ -51,9 +54,15 @@ changeAssociatedFiles key transform = do files <- associatedFilesRelative key let files' = transform files when (files /= files') $ - liftIO $ viaTmp writeFile mapping $ unlines files' + liftIO $ viaTmp write mapping $ unlines files' top <- fromRepo Git.repoPath return $ map (top ) files' + where + write file content = do + h <- openFile file WriteMode + fileEncoding h + hPutStr h content + hClose h {- Removes an associated file. Returns new associatedFiles value. -} removeAssociatedFile :: Key -> FilePath -> Annex [FilePath] diff --git a/debian/changelog b/debian/changelog index 182439acd1..a8a75c9066 100644 --- a/debian/changelog +++ b/debian/changelog @@ -18,6 +18,7 @@ git-annex (3.20130115) UNRELEASED; urgency=low * Fix direct mode mapping code to always store direct mode filenames relative to the top of the repository, even when operating inside a subdirectory. + * Avoid filename encoding errors when writing direct mode mappings. -- Joey Hess Mon, 14 Jan 2013 18:35:01 -0400