mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

clean up

Browse source
This commit is contained in:
Joey Hess 2010-11-02 16:02:43 -04:00
parent cecb1cbeb2
commit c7b0f60fba
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
GitRepo.hs
View file

@ -397,8 +397,8 @@ encodeGitFile s = (foldl (++) "\"" (map echar s)) ++ "\""
where where
showoctal i = "\\" ++ (printf "%03o" i) showoctal i = "\\" ++ (printf "%03o" i)
e_num c = showoctal $ ord c e_num c = showoctal $ ord c
-- unicode character is decomposed to Word8 -- unicode character is decomposed to
-- and each is shown with e_num -- Word8s and each is shown in octal
e_utf c = foldl (++) "" $ map showoctal $ e_utf c = foldl (++) "" $ map showoctal $
(encode [c] :: [Word8]) (encode [c] :: [Word8])