diff options
author | 2011-06-30 00:35:51 -0400 | |
---|---|---|
committer | 2011-06-30 00:35:51 -0400 | |
commit | d72fb5acc28af3ea6380dd09518f7d1382dea8d2 (patch) | |
tree | c7dfd77b45a98d0690f66f2a250770e763682255 /Branch.hs | |
parent | b089fba7b4e68c4482909319f562d32a3f00f379 (diff) |
Fix encoding of utf-8 etc when storing the description of repository and other content.
Write files in raw mode, to avoid mangling the encoding of content
provided.
Note: This was a longstanding problem, it was not introduced in v3.
Diffstat (limited to 'Branch.hs')
-rw-r--r-- | Branch.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -26,6 +26,7 @@ import System.Cmd.Utils import Data.Maybe import Data.List import System.IO +import System.IO.Binary import qualified Data.ByteString.Char8 as B import Types.BranchState @@ -287,7 +288,7 @@ setJournalFile file content = do write g = do let jfile = journalFile g file let tmpfile = gitAnnexTmpDir g </> takeFileName jfile - writeFile tmpfile content + writeBinaryFile tmpfile content renameFile tmpfile jfile {- Gets journalled content for a file in the branch. -} |