use concat
This commit is contained in:
parent
9de1192c57
commit
c2b13a88bf
2 changed files with 2 additions and 2 deletions
|
@ -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])
|
||||
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue