use concat

This commit is contained in:
Joey Hess 2011-01-09 18:23:58 -04:00
parent 9de1192c57
commit c2b13a88bf
2 changed files with 2 additions and 2 deletions

View file

@ -438,7 +438,7 @@ encodeGitFile s = foldl (++) "\"" (map echar s) ++ "\""
e_num c = showoctal $ ord c
-- unicode character is decomposed to
-- Word8s and each is shown in octal
e_utf c = foldl (++) "" $ map showoctal $
e_utf c = concat $ map showoctal $
(encode [c] :: [Word8])